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I.         INTRODUCTION 

A.  THESIS  PURPOSE 

The  main  purpose  of  this  thesis  was  to  reengineer  a  United  States  Marine 
Corps'  Manpower  Assignment  model  concerned  with  the  distribution  of  recruits  to 
schools.  This  model  is  called  the  Recruit  Distribution  Model  (RDM)  [Ref.  1]. 
Throughout  this  thesis,  the  RDM  is  addressed  as  either  RDM  or  the  old  system. 

Additionally,  an  important  purpose  of  this  thesis  was  to  build  a  functional  pro- 
totype of  the  reengineered  RDM.  The  new  system  is  called  the  Recruit  Distribution 
Decision  Support  System  (RDdss).  It  demonstrates  the  functionality  of  the  reengi- 
neered RDM.  Throughout  this  thesis,  the  RDdss  is  addressed  as  either  RDdss  or  the 
new  system. 

The  majority  of  this  thesis  is  devoted  to  a  discussion  of  the  RDdss.  As  nec- 
essary, the  RDM  is  discussed.  The  following  section  is  a  general  discussion  designed 
to  set  the  stage  for  understanding  the  rest  of  the  thesis.  It  provides  a  problem  de- 
scription of  recruit  distribution  in  the  United  States  Marine  Corps  (USMC).  The  last 
section  of  this  chapter  discusses  the  significant  contributions  of  this  thesis. 

B.  GENERAL  PROBLEM  DESCRIPTION 

Recruit  distribution  in  the  USMC  is  the  process  that  assigns  recruits  to  an 
entry  level  school  (ELS)  leading  to  a  military  occupational  specialty  (See  Figure  1). 
These  assignments  are  made  about  48  times  a  year,  during  the  last  week  of  Marine 
Corps  Recruit  Depot  (MCRD)  training.  In  this  ending  period  of  the  MCRD,  the 
recruits  are  facing  the  "Crucible,"  which  is  the  final  wicket  a  recruit  endures  before 
officially  becoming  a  Marine.  Consequently,  the  use  of  the  titles  recruit  and  Marine 
are  used  interchangably  in  this  paper. 

For  at  least  two  reasons,  this  assignment  process  is  a  critical  manpower  func- 
tion. First,  a  Marine's  military  occupational  specialty  (MOS)  ultimately  determines 
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Figure  1.  Assigning  Marines  to  Schools 


the  member's  career.  Therefore,  it  is  in  the  best  interest  of  both  the  Marine  and 
the  USMC  that  a  school  assignment  matching  the  Marine's  desire  is  made.  Second, 
the  success  obtained  by  a  service  member  during  his  or  her  time  in  the  USMC  is 
partially  based  upon  successful  completion  of  their  ELS,  where  a  pattern  of  success 
is  established.  Therefore,  a  school  assignment  maximizing  the  chances  of  the  Marine 
completing  their  training  is  important.  So,  fulfilling  the  Marine's  desire  and  matching 
him  or  her  to  an  MOS  (i.e.  ELS)  that  fits  their  personal  characteristics  is  critical  to 
the  overall  health  of  the  USMC,  making  the  assignment  process  a  critical  manpower 
function  [Ref.  2]. 

Fulfilling  the  desire  of  the  Marine  is  accomplished  through  the  use  of  a  contract 
guarantee.  This  is  called  a  program  enlisted  for  (PEF),  and  is  specified  during  the 
recruiting  process.  For  instance,  a  PEF  =  19  is  the  "Tank  and  Assault  Amphibian 
Option."  There  are  currently  two  ELS's  associated  with  this,  "M1A1  Tank  Crewman" 
and  "Assault  Amphibian  Crewman."  So,  a  Marine  who  chose  the  PEF  =  19  is  a 
possible  candidate  for  these  two  schools  and  no  others. 

Once  the  Marine's  school  options  are  known,  a  Marine-to-school  fit  is  deter- 


mined  for  each  of  these  schools  (See  Chapter  III,  Section  B  for  details).  This  fitness 
determination  is  partly  made  by  looking  at  each  ELS's  minimum  eligibility  require- 
ments, which  are  call  mandatory  properties.  This  term  "property"  is  used  as  defined 
by  Webster's  Ninth  New  Collegiate  Dictionary:  "a  quality  or  trait  belonging  and 
especially  peculiar  to  an  individual  or  thing."  Examples  are  Age  >  18,  Clerical  >= 
80,  and  Electrical  >=  95.  The  meaning  of  the  first  example  is  obvious.  The  other 
two  are  based  on  test  scores  from  the  Armed  Services  Vocational  Aptitude  Battery 
(ASVAB)  test. 

In  addition  to  the  mandatory  properties,  most  schools  also  specify  desirable 
properties.  A  desired  property  is  the  same  as  a  mandatory  property,  except  they 
are  not  prerequisites  for  attending  the  school.  For  example,  the  Traffic  Management 
Coordination  school  desires  Marines  with  a  Clerical  score  of  at  least  100.  So,  a  desired 
property  of  Clerical  >=  100  is  specified  for  this  ELS. 

By  using  the  information  obtained  from  the  PEF,  mandatory  and  desired 
properties,  a  fitness  matrix  is  generated.  This  shows  the  fit  of  every  Marine  to  every 
school  he  or  she  is  eligible  for.  Since  there  are  about  100  schools  and  on  average  700 
Marines  considered  for  every  run,  this  matrix  has  the  potential  of  70,000  matches. 

However,  the  matrix  size  is  actually  bigger.  This  is  because  each  of  the  schools 
is  broken  down  by  classes.  Some  ELS's  have  a  class  starting  each  week,  others  every 
month,  and  others  every  quarter.  Over  a  given  year,  these  classes  total  about  1,800. 
Following  the  practice  of  the  USMC,  only  the  classes  over  the  next  3-4  months  are 
considered  during  the  assignment  process  (see  Figure  2).  Therefore,  the  fitness  matrix 
is  increased  to  a  potential  size  of  350,000. 

The  fact  that  the  school  classes  start  at  different  times  throughout  the  year 
and  that  the  assignment  process  is  only  conducted  48  times  a  year  (normally  this 
occurs  on  friday)  causes  the  "3-month  look  ahead"  in  the  model  and  has  implications 
important  to  the  USMC.  The  concern  is  school  seats  which  never  get  filled.  Each 
seat  is  prepaid,  guaranteeing  its  availability  to  the  USMC.  This  means  every  vacant 
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Figure  2.  Assigning  Marines  to  School  Classes 


spot  is  potentially  a  lost  resource  to  the  USMC.  Therefore,  in  addition  to  the  Marine- 
to-school  fitness  concern,  there  is  also  the  concern  of  filling  all  available  school  seats 
before  their  report  date  is  passed. 

Another  concern  is  the  problem  of  unassigned  Marines.  There  are  numerous 
reasons  why  they  may  not  get  assigned.  Maybe  the  only  school  class  the  Marine 
was  eligible  for  is  already  full.  Or,  possibly  he  or  she  is  not  qualified  for  any  of  the 
school's  promised  by  their  PEF.  A  third  possibility  is  errors  in  the  data  provided 
to  the  assignment  process.  Regardless  of  the  cause,  it  requires  identification  and 
corrective  action. 

Finally,  a  discussion  of  the  internal  and  external  stakeholders  associated  with 
the  USMC  recruit  distribution  is  given.  Internally,  there  are  the  USMC  and  the 
recruits.  Since  their  concerns  were  discussed  above,  they  are  not  given  any  further 
consideration.  Externally,  there  is  the  contractor  Decision  Support  Associates,  Inc. 
(DSAI)  who  has  maintained  and  upgraded  the  RDM  for  over  30  years.  They  also 
maintain  about  eight  other  major  systems  for  the  USMC.  For  their  services,  the 
USMC  pays  a  significant  amount  of  money  each  year.  Additionally,  DSAI  has  pro- 
prietary software  in  some  of  these  systems,  which  has  locked-in  the  USMC  to  this 


company.  Besides  the  contractor,  there  is  one  last  significant  stakeholder,  the  Amer- 
ican taxpayer.  In  a  time  of  increasing  fiscal  constraints  and  shrinking  budgets,  it  is 
imperative  that  wise  decisions  are  made  in  regards  to  assigning  Marines  to  ELS's. 
The  American  taxpayers  expect  nothing  less. 

C.      SIGNIFICANT  CONTRIBUTIONS 

Four  significant  contributions  beneficial  to  the  USMC  have  been  made  in  this 
thesis.  A  detailed  discussion  of  these  is  given  throughout  the  next  three  chapters. 
Here,  we  list  and  summarize  the  contibutions. 

•  Analysis  and  articulation  of  the  recruit  distribution  process  -  by  interviewing 
USMC  and  DSAI  personnel,  reviewing  available  documentation,  and  oper- 
ating the  RDM  we  were  able  to  articulate  an  understanding  of  the  recruit 
distribution  process  using  IDEF  process  modeling.  Additional  data  modeling 
was  articulated  in  a  third  normal  form  relational  schema  [Ref.  3]. 

•  Development  of  a  mathematical  model  -  by  analyzing  the  assignment  process, 
criteria,  and  constraints,  USMC  policies  and  objectives,  a  mathematical  model 
for  the  new  system  was  developed. 

•  Fully  functional  prototype  -  an  intuitive  and  easy  to  understand  new  sys- 
tem that  seamlessly  interfaces  with  the  old  system  was  built.  It  provides  an 
objective  means  of  comparing  assignment  results  of  both  systems,  and  was 
developed  using  commercial-off-the-shelf  (COTS)  software  applications. 

•  Elimination  of  the  proprietary  solver  and  associated  contractor  lock-in  -  this 
was  accomplished  by  replacing  the  proprietary  solver  with  two  COTS  appli- 
cations. 


II.         REENGINEERING  MOTIVATIONS 
AND  PROCESS  VIEW 

The  RDM  has  a  number  of  limitations  which  motivated  the  USMC  to  reengi- 
neer  it.  We  start  this  chapter  by  listing  and  describing  each  identified  limitation. 
Then,  to  develop  a  better  understanding  of  recruit  distribution  in  the  USMC,  two 
different  process  views  are  examined.  The  first  is  concerned  with  the  RDM  operating 
environment,  and  the  second  is  concerned  with  the  first  level  of  the  RDdss  IDEFO 
model. 

A.      LIMITATIONS  OF  OLD  SYSTEM 

Throughout  this  reengineering  effort,  a  number  of  limitations  of  the  old  system 
have  become  apparent.  Many  of  these  limits  were  recognized  earlier,  and  were  part  of 
the  USMC's  motivation  to  reengineer  the  RDM.  The  following  is  a  list  of  the  identified 
limitations  of  the  old  system. 

•  Navigation 

•  Data  management 

•  Assignment  procedure 

•  Transaction  processing  approach 

A  description  of  each  limitation  is  now  given. 

1.       Navigation 

Navigating  through  the  RDM  is  not  intuitive.  It  is  neither  obvious  where  one 
should  start  or  where  one  should  go.  Navigation  is  accomplished  by  initially  selecting 
an  option  from  one  of  the  main  display's  drop  down  menus.  This  normally  results  in  a 
window  appearing  on  the  computer's  desktop.  Then,  by  pointing  and  clicking  on  the 
displayed  window's  buttons,  further  navigation  is  accomplished.  After  working  with 
the  RDM  for  a  number  of  hours,  we  were  able  to  navigate  through  the  application 
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to  find  and  display  specific  windows.  However,  after  a  week  or  two  of  not  using 
the  system,  we  had  difficulty  finding  our  way  around  again.  In  the  RDdss,  we  have 
created  an  intuitive  navigational  scheme  using  switchboards. 

2.  Data  Management 

Data  management  in  the  RDM  is  poor,  leading  to  the  introduction  of  numerous 
errors.  The  biggest  problem  in  this  regard  deals  with  data  entry.  The  RDM  violates 
the  basic  rule  of  never  requiring  the  user  to  enter  data  already  in  the  system  [Ref .  4] . 
For  example,  creating  a  new  school  in  the  RDM  requires  the  user  to  type  data  into 
seven  different  data  fields.  Only  the  course  identification  number  has  been  automated 
by  a  drop  down  list.  In  the  RDdss,  when  creating  a  new  school  we  have  reduced  the 
manual  data  entry  to  one  field. 

3.  Assignment  Procedure 

There  are  at  least  five  limitations  associated  with  the  old  system's  assignment 
procedure.  It 

•  is  encoded  into  proprietary  software, 

•  examines  schools  sequentially,  rather  than  globally, 

•  makes  assignments  based  on  school  priority  rather  than  weights, 

•  attempts  to  maximize  fill  rather  than  fit-and-fill,  and 

•  is  relatively  inflexible. 

The  solver  performing  these  assignments  was  designed  back  in  the  1950's, 
where  the  major  concern  was  speed  and  using  the  minimal  amount  of  memory.  It 
is  written  in  Fortran,  and  is  proprietary  code  owned  by  DSAI.  It  does  not  search 
repetitively  for  an  optimal  solution  by  trying  to  maximize  or  minimize  an  objective 
function.  Instead,  it  maximizes  the  fill  of  prioritized  school  seats.  In  the  RDdss.  we  use 
a  well  know  algorithm  called  CPlex  [Ref.  5] .  After  conducting  around  600  iterations 
of  comparing  344  Marines  to  576  school  classes,  it  produces  an  optimal  solution.  Its 


8 


objective  function  was  written  to  make  the  assignment  procedure  flexible.  It  allows 
the  RDdss  manager  to  "game"  the  system  by  making  fit-and-fill  trade-offs,  until  a 
"good"  solution  is  found. 

4.       Transaction  Processing  Approach 

Finally,  the  old  system  follows  a  transaction  processing  approach,  vice  a  de- 
cision support  approach  [Ref.  6].  This  is  partially  due  to  the  inflexibility  of  the 
solver.  However,  another  contributor  is  the  extreme  difficulty  in  comparing  one  run 
to  another.  Other  than  providing  a  means  for  manually  computing  the  numerical 
difference  in  Marines  assigned,  the  RDM  provides  little  insight  or  information  views 
for  comparing  runs.  This  is  because  there  is  no  way  to  objectively  compare  one  run 
to  another.  As  it  is  now,  if  the  RDM  manager  launches  the  assignment  model  and 
everybody  is  assigned,  the  result  becomes  the  approved  assignments.  In  the  RDdss, 
we  have  created  an  entire  process  devoted  to  providing  insightful  analysis  of  a  given 
run  (See  Chapter  IV,  Section  D  for  details).  Its  purpose  is  to  support  the  making  of 
wise  assignment  decisions. 

B.      A  PROCESS  VIEW 

To  develop  a  better  understanding  of  recruit  distribution  in  the  USMC,  two 
different  process  views  are  now  examined.  The  first  is  concerned  with  the  current 
operating  environment  of  the  old  system.  The  goal  is  to  develop  a  big  picture  view 
of  this  process.  For  those  interested  in  further  study  of  the  old  system,  Appendix  A 
contains  the  RDM  business  process  IDEFO  model. 

The  second  process  view  examined  concerns  the  first  level  of  the  RDdss  busi- 
ness process  IDEFO  model.  The  goal  is  to  develop  a  better  understanding  of  the 
new  system,  without  going  into  great  detail.  This  lays  a  good  foundation  for  the 
RDdss  discussions  in  the  remainder  of  this  thesis.  Appendix  B  contains  the  entire 
IDEFO  model  of  the  new  system. 
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Figure  3.  Current  Recruit  Distribution  Operating  Environment 

1.        Recruit    Distribution   Model   Operating   Environ- 
ment 

Figure  3  graphically  depicts  the  operating  environment  of  the  USMC  recruit 
distribution.  At  the  top  are  the  policy  makers,  who  forecast  and  decide  how  many 
recruits  and  corresponding  school  seats  are  needed  over  the  next  few  years.  In  addition 
to  this,  they  determine  how  many  PEF's  or  school  guarantees  to  make  available  for  a 
given  year.  Currently,  about  65-70%  of  the  recruits  enter  the  USMC  with  a  quarantee. 
The  recruit  and  PEF  authorizations  for  the  following  year  are  given  to  the  USMC 
recruiters,  and  the  school  seats  or  quotas  determined  for  the  following  years  is  input 
into  the  By  Name  Assignment  (BNA)  system. 

The  recruiters  use  the  recruit  and  PEF  authorizations  in  recruiting  from  the 
general  public.  Once  a  potential  candidate  is  found  they  take  the  ASVAB,  if  they  have 
not  already  done  so.  Based  on  the  results,  the  recruiter  can  offer  different  quarantees. 
Once  the  candidate  signs  a  contract  with  the  USMC,  their  test  scores,  PEF,  and  other 
personal  information  such  as  age  and  height  are  entered  into  the  Automated  Recruit 
Management  System  (ARMS). 

Both  the  ARMS  and  BNA  systems  utilize  large  main  frame  databases.  They 
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serve  as  central  repositories  for  maintaining  data  on  many  aspects  dealing  with  the 
USMC.  Keeping  this  information  stored  in  one  location  ensures  everyone  is  using  the 
same  data,  providing  consistency  for  all  users.  One  user  is  the  RDM  manager,  who 
retrieves  recruit  and  school  information  from  these  systems  for  use  in  the  RDM. 

Additionally,  the  RDM  receives  data  from  two  other  sources.  The  MCRD 
instructors  provide  special  assignment  inputs.  These  are  personnel  identified  as  having 
the  talents  or  abilities  well  suited  for  a  particular  school.  The  other  data  comes  from 
the  MCT.  They  provide  the  RDM  manager  with  reclassification  information.  For 
instance,  a  Marine  is  reclassified  if  he  or  she  is  injured  during  MCT  and  is  unable  to 
make  the  start  date  of  their  assigned  ELS. 

All  this  recruit  and  school  data  is  input  into  the  RDM,  where  it  is  stored 
in  the  Military  Operational  Data  Store  (MODS).  The  model  is  then  run.  Once  a 
satisfactory  set  of  assignments  is  obtained,  the  RDM  manager  uploads  the  approved 
assignments  to  the  ARMS  and  BNA  systems.  From  this  assignment  information,  the 
MCRD  generates  orders  for  the  Marines  graduating  from  the  MCRD. 

2.        New  System  Level  0  Diagram 

Focus  is  now  shifted  to  the  examination  of  the  first  process  level  of  the  RDdss. 
Looking  any  deeper  will  provide  more  detail  than  is  necessary  at  this  point.  As 
mentioned  earlier,  the  intent  is  to  lay  the  foundation  for  the  RDdss  discussions  in  the 
remainder  of  this  thesis. 

Figure  4  shows  the  level  0,  or  context  diagram  of  the  RDdss.  The  program 
used  to  generate  this  illustration  was  BPWin,  which  is  based  on  IDEFO  modeling. 
Consequently,  all  arrows  entering  from  the  left  are  considered  "inputs,"  arrows  enter- 
ing from  the  top  are  "controls,"  arrows  exiting  to  the  right  are  "outputs,"  and  arrows 
entering  from  the  bottom  are  "mechanisms."  A  convenient  acronym  for  this  is  ICOM 
[Ref.  7]. 

•  I  =  Input:  something  consumed  in  the  process 

•  C  =  Control:  a  constraint  on  the  operation  of  the  process 
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Figure  4.  RDdss  Process,  Level  0  Diagram 


•  0  =  Output:  something  resulting  from  the  process 

•  M  =  Mechanism:    something  used  to  perform  the  process,  but  is  not  itself 
consumed 


There  are  three  inputs  to  the  RDdss,  the  BNA  extract,  the  RD1  file,  and  the 
special  assignments/reclassifications.  The  first  of  these  contains  a  set  of  school  class 
quotas  covering  a  120  day  period.  This  comes  to  the  RDdss  manager  as  a  fixed-width 
delimited  text  file.  The  RD1  file  contains  the  data  for  the  recruits  soon  to  graduate 
from  the  MCRD.  It  also  is  a  fixed-width  delimited  text  file.  The  special  assignments 
and  reclassifications  are  the  recruits  identified  with  special  abilities  or  talents  and  the 
Marines  requiring  reassignment  to  a  different  school  class,  respectively.  This  last  data 
comes  to  the  RDdss  manager  as  a  memo  and  not  a  text  file. 

The  only  control  is  the  database  (or  Military  Operational  Data  Store)  used  to 
store  the  data  for  the  RDdss.  Among  other  things,  the  MODS  contains  the  informa- 
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tion  specifying  the  eligibility  requirements  for  each  of  the  schools.  This  is  why  it  is 
considered  a  control.  It  contains  the  data  controlling  or  constraining  the  assignment 
of  Marines  to  schools. 

Besides  the  approved  assignments  that  were  mentioned  earlier,  the  output  con- 
sists of  graphs,  reports,  and  query  results.  Each  graph  was  designed  to  provide  insight 
into  the  current  assignment  result,  plus  provide  a  means  for  comparing  different  runs. 
The  reports  provide  a  print-out  of  information  the  RDdss  manager  might  find  useful. 
For  instance,  an  approved  assignment  report  and  an  unassigned  Marine  report  are 
both  available.  The  query  results  provide  different  views  of  the  data  in  the  MODS. 
For  instance,  one  of  the  queries  provides  a  listing  of  the  fitness  scores  of  all  schools  a 
Marine  is  eligible  for. 

Finally,  the  two  mechanisms  of  the  RDdss  are  the  RDdss  manager  and  the 
commercial-off-the-shelf  (COTS)  application  AMPLPlus.  Both  of  these  entites  are 
necessary  to  make  the  system  work,  and  are  not  consumed  by  the  process  itself. 
This  is  why  they  are  considered  mechanisms.  The  RDdss  manager  is  the  one  who 
points  and  clicks  on  the  buttons  of  the  RDdss,  making  it  operate.  AMPLPlus  is  the 
application  containing  the  mathematical  model  used  in  making  optimal  Marine-to- 
school  assignments.  It  interfaces  with  the  CPlex  algorithm  that  actually  performs 
the  optimization. 
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III.         MODELING  THE  RECRUIT 
DISTRIBUTION  PROBLEM 

We  model  the  recruit  distribution  problem  as  an  assignment  problem.  Various 
submodels  are  developed  to  compute  input  paramters  and  perform  other  preprocess- 
ing steps  for  the  assignment  model,  which  optimally  assigns  recruits  to  a  school  class. 
Following  is  a  discussion  of  important  points  concerning  the  recruit  distribution  prob- 
lem. 

1.  Schools  and  Classes:  there  are  about  130  schools  per  fiscal  year,  which  are 
broken  down  by  classes  (about  1800  classes  per  fiscal  year).  Classes  of  the 
same  school,  commencing  on  different  dates,  are  identical.  However,  a  class 
commencing  soon  after  a  recruit  is  available  for  training  has  greater  utility 
than  another  class  starting  at  a  later  date.  On  average,  there  are  600  classes 
in  a  run. 

2.  Program  Enlisted  For  (PEF) 

(a)  65-70%  of  enlistees  enter  the  USMC  under  a  guarantee  (or  PEF).  The 
remaining  recruits  enter  under  an  open  contract  (PEF=00). 

(b)  A  recruit  can  be  assigned  only  to  schools  associated  with  his  or  her  PEF. 
Some  PEF's  are  associated  with  one  school,  while  others  are  associated 
with  many  schools. 

A.  OPTIMIZATION  OBJECTIVES:  FIT  AND  FILL 

Our  approach  in  the  assignment  model  is  to  optimize  by  looking  at  both  fit 
and  fill.  The  importance  of  both  these  objectives  was  discussed  in  Chapter  II,  Section 

B.  The  idea  is  to  allow  the  RDdss  manager  to  make  a  tradeoff  between  fit  and  fill. 

The  high-level  objective  function  is: 

•  Maximize 

K\  ■  Fitness  —  K2  ■  Penalty 

Where  K\  is  the  fitness  coefficient  and  K2  is  the  fill  coefficient. 
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By  assigning  different  values  to  these  coefficients,  the  RDdss  manager  is  able 
to  make  trade-offs  between  fit  and  fill.  This  capability  makes  the  assignment  model 
flexible.  It  provides  the  RDdss  manager  a  means  for  "gaming"  the  system. 

B.      MEASURING  FITNESS 

The  first  half  of  the  high-level  objective  function  deals  with  maximizing  the 
fitness  of  Marines  to  schools.  Therefore,  we  cover  this  topic  now.  Following  is  a 
discussion  of  important  points  concerning  the  measuring  of  fitness. 

1.  Marines  are  only  eligible  for  assignment  to  schools  corresponding  to  their  PEF 
guarantees. 

2.  Associated  with  each  school  are  specific  mandatory  properties,  or  minimum 
eligibility  requirments  (e.g.  AGE  >  18). 

3.  Eligibilty  of  a  Marine  to  a  school  is  pre-determined  by  comparing  a  Marine's 
attributes  (e.g.  Age  =  20)  to  the  school's  mandatory  properties.  A  Marine  is 
eligible  only  if  he  or  she  meets  all  the  minimum  school  requirements. 

4.  Many  schools  also  have  desirable  properties  associated  with  them.  This  is 
a  property  which  is  desired  in  a  Marine  (e.g.  Height  >  65  inches),  but  are 
not  prerequisties  for  attending  the  school.  Since  some  desirable  properties 
are  more  desirable  than  others,  a  means  of  distinquishing  the  properties  is 
necessary.  We  have  followed  the  Marine  Corps  practice  of  using  6  levels  of 
desirability.  Level  1  properties  are  the  most  desired,  followed  by  level  2,  etc. 

5.  Let  V(s)  denote  the  set  of  desirable  properties  for  school  s,  and  let  level(p) 
denote  the  desirability  level  of  property  p.  Let  possesses(mp)  =  1  if  Marine  m 
possesses  property  p  (0  otherwise).  Further,  let  Scoreievei^p)  (>  0)  be  the  score 
assigned  for  possessing  a  level(p)  property,  where  Scoreievei(p)  is  calculated 
using  an  exponential  function  inversely  proportional  to  level(p).  The  scores 
for  levels  1  through  6  are  shown  in  Figure  5. 

6.  The  total  fitness  score  (fitmiS)  of  Marine  m  to  school  s  is  composed  of  two 
parts:  the  score  (ManScorem,s)  for  possessing  mandatory  properties,  and  the 
score  (DesScoremtS)  for  possessing  some  or  all  of  the  desirable  properties. 

Our  procedure  for  computing  fitness  scores  is  designed  in  a  manner  that,  for 
each  school,  the  average  fitness  score — with  the  average  computed  over  all 
qualified  Marines,  i.e.  Marines  who  have  met  the  mandatory  properties — 
is  constant  (i.e.     100).     The  reason  we  did  this  was  to  ensure  each  school 
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Figure  5.  Exponential  Function  for  Calculating  ScoreieyeKjy) 

received  equal  treatment  in  the  model,  regardless  of  the  number  of  desirable 
properties  specified  for  each  school.  Otherwise,  all  other  things  being  equal, 
the  school  with  the  greatest  number  of  desirable  properties  would  receive  the 
most  assignments. 

7.  For  each  school  s,  percentage  weights  ManWts  and  DesWts  are  assigned, 
respectively,  for  the  mandatory  and  desirable  properties.  For  example,  for 
school  Si,  a  weight  of  70%  may  be  assigned  to  the  mandatory  properties  and 
30%  for  the  desirable  properties. 

8.  A  Marine  possessing  all  mandatory  properties  for  school  s  is  given  an  initial 
score  ManScorem,s  —  ManWts  •  100.  Marines  who  do  not  possess  all  manda- 
tory properties  for  a  school  are  given  an  overall  fitness  score  of  0  for  that 
school. 

9.  Of  all  the  Marines  possessing  the  mandatory  properties,  those  possessing  de- 
sirable properties  are  awarded  additional  points,  which  are  weighted  by  the 
level  of  the  property.  The  Marine's  score  for  desirable  properties  is  computed 
as  follows: 

•  The  absolute  score  Absms,  for  Marine  m  and  school  s,  based  on  desirable 
properties  is 

AbsmtS=    Yl    Scorelevei{p)-possesses(m,p) 

p€V{s) 

The  average  of  these  absolute  scores  is  computed  over  all  qualified  Marines. 
Let  AveAbss  denote  the  average  absolute  score  for  school  s. 
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•  Each  Marine's  fitness  score  for  desirable  properties  is  then  computed  as  a 
fraction  of  this  average,  and  normalized  by  multiplying  with  the  percentage 
weight  for  desirable  properties.  That  is,  DesScorem,s  is  a  weighted  relative 
score: 

Abs 

DesScore-m  s  =  (— 77^-)  ■  DesWts  •  100 

AveAbSs 

The  overall  average  of  all  these  scores  is,  due  to  the  above  construction, 
DesWts  ■  100. 

10.  The  final  fitness  score,  fitm,s  is  simply  the  sum  ManScoremtS  +  DesScorem^s. 
It  may  be  seen  that,  for  each  school,  this  number  averages  (over  all  the  qualified 
Marines  for  that  school)  to  100. 

11.  As  mentioned  earlier,  schools  are  broken  down  by  classes  that  are  identical, 
except  for  their  start  dates.  Therefore,  let  fitms  =  fitmfi  for  each  class  c  of 
school  s. 


C.      MEASURING  FILL 

The  second  half  of  the  objective  function  deals  with  maximizing  the  fill  of 
school  seats.  We  now  turn  our  attention  to  this  topic. 

As  we  discussed  in  Chapter  II,  school  seats  are  paid  for  in  advance.  This 
is  to  guarantee  the  seat  is  available  to  the  USMC.  Consequently,  every  vacant  spot 
is  potentially  a  lost  resource.  Since  the  model  is  run  about  once  every  week,  the 
biggest  concern  is  the  unfilled  seats  having  report  dates  within  the  next  seven  days. 
Conversely,  a  seat  having  a  report  date  in  three  months  is  not  so  critical. 

To  capture  the  essence  of  filling  school  seats  with  early  report  dates,  we  use 
a  penalty  function.  The  idea  is  simple.  School  seats  having  an  early  report  date  get 
a  high  penalty,  and  those  having  a  late  report  date  get  a  low  penalty.  A  number  of 
functions  would  have  worked  for  this.  We  have  graphed  two  candidates  in  Figure  6. 
The  first  is  a  linear  function  and  the  second  a  large-step  function.  Each  of  these  was 
tried  in  the  prototype.  In  our  opinion  the  latter  one  is  the  best  choice.  It  gives  a  lot 
of  emphasis  to  the  first  week,  plus  it  treats  all  schools  having  report  dates  within  the 
same  week  equally.  It  is  the  function  currently  implemented  in  the  rddss. 
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Figure  6.  Two  Candidate  Penalty  Functions 

D.      ASSIGNMENT  MODEL 

We  are  now  ready  to  formally  describe  the  assignment  model.  We  will  first 
specify  the  model's  assumptions.  Then,  we  will  list  the  model's  notation,  followed  by 
its  objective  function  and  constraints. 

1.       Assumptions 

1.  Each  school  is  unique  and  identifies  a  single  course  of  instruction  leading  to 
an  MOS. 

2.  In  any  given  run,  a  school  may  offer  several  classes  that  start  on  different 
dates.  It  is  more  desirable  to  fill  seats  in  classes  starting  earlier.  Such  classes 
have  a  higher  penalty  per  unit  shortfall  than  similar  classes  starting  at  a  later 
date. 

3.  All  Marines  available  for  assignment  are  graduating  from  the  MCRD  on  the 
same  date. 

4.  A  Marine's  eligibility  for  a  school,  as  well  as  the  fit  for  each  school,  is  deter- 
mined by  the  model  preprocessor,  taking  into  account  the  PEF  guarantees, 
and  the  mandatory  and  desirable  properties. 

5.  A  Marine  is  assigned  to  a  school  corresponding  to  their  PEF  code,  or  not  at 
all. 

6.  It  is  better  to  leave  a  Marine  unassigned  than  to  overfill  a  school. 
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7.  The  demand  for  the  number  of  Marines  to  be  trained  in  each  school  class  is 
determined  by  looking  at  the  BNA  extract.  This  demand  statement  is  already 
constrained  by  the  capacity  constraint  at  each  school. 


2. 

Notation 

•  Sets 

M 

:  Marines 

C   : 

Classes 

•  Exogenous  Variables  (Parameters  in  AMPL) 

fttm,c-  the  desirability  of  assigning  Marine  m  to  class  c  (note:  the  fitness 
score  is  zero  for  Marine-class  pairs  where  either  the  Marine  does  not 
meet  the  classes  mandatory  properties,  or  where  the  class  does  not 
fulfill  the  Marine's  PEF  guarantee.) 

demandc:  demand  for  Marines  to  be  trained  at  class  c 

penaltyc:  penalty  for  each  unit  of  demand  not  met  (higher  value  means 
it  is  more  critical  to  fill  the  class) 

•  Decision  Variables 

Xm,c  (binary  integer):  1,  if  Marine  is  assigned  to  the  given  class;  0  other- 
wise 

3.  Objective 

Maximize  the  Total  Utility:  (Total  Reward  -  Total  Penalty) 

TU  =  hi  (  H  Yl  fii;m,c  ■  Xm,c )  -  k2  I  J2  penalty c  ■  (demandc  -   ^  xmfi) )    (HI.l) 

\ceCmeM  J  \c€C  m€M  / 

4.  Constraints 

•  assignment  Limit:  a  Marine  is  assignable  to  at  most  one  school 

X>m,c<l        Vm  (III.2) 

cec 

•  eligibility:  a  Marine  is  only  assignable  to  a  class  they  are  fit  for  (this  prevents 
assigning  Marines  with  a  fitness  score  of  zero) 

a^m.c  <  fitm,c        Vm  Vc  (III.3) 
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•  capacity:  since  penalties  apply  only  if  there  is  a  positive  shortfall,  the  objec- 
tive function  would  be  non-linear.  To  avoid  that,  we  assume  we  will  never 
oversupply  Marines  to  schools,  resulting  in: 

y^y  £m,c  <  demandc        Vc  (M-4) 
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IV.         A  DECISION  SUPPORT  SYSTEM  FOR 
RECRUIT  DISTRIBUTION 

A.      ARCHITECTURE  AND  IMPLEMENTATION 

Following  is  a  discussion  of  the  RDdss  architecture  and  its  implementation. 
First,  the  architectural  components  are  discussed.  Then,  the  steps  taken  to  build  the 
RDdss  are  described. 

1.       Architecture 

The  architecture  of  the  RDdss  is  depicted  in  Figure  7.  This  illustration  shows 
how  the  six  major  components  of  the  system  are  related.  We  will  describe  this  archi- 
tecture by  examining  each  component  in  the  following  order:  switchboard,  relational 
database,  preprocessor,  assignment  model,  solver,  and  analyzer. 

The  switchboard  is  one  of  two  components  providing  an  interface  between  the 
user  and  the  RDdss.  It  is  the  mechanism  by  which  the  user  controls  the  operation  of 
the  system.  Figure  8  illustrates  the  main  switchboard  of  the  RDdss.  It  is  displayed 
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Figure  8.  RDdss  Main  Switchboard 

when  the  application  is  started.  As  this  illustration  depicts,  the  user  can  perform  the 
following  functions  by  simply  pointing  and  clicking  on  the  appropriate  button:  import 
and  export  data,  maintain  data,  preprocessing  and  execution  of  the  assignment  model, 
analyze  results,  query  data,  and  generate  reports.  All  the  RDdss  switchboards  were 
generated  using  Access  97. 

The  relational  database  technology  was  used  in  the  RDdss  [Ref.  8].  The 
actual  table  relationships  are  shown  in  Figure  9.  These  tables  were  developed  in 
Access  97,  which  uses  the  relational  technology.  In  addition  to  a  few  flat  files  used  to 
communicate  with  the  assignment  model,  all  the  data  for  the  RDdss  is  stored  in  this 
database. 

The  preprocessor  is  one  of  the  two  modeling  components.  It  consists  of  Access 
97  Visual  Basic  for  Applications  (VBA)  code  that  computes  information  necessary 
for  the  assignment  model  [Ref.  9].  It  determines  the  demand  of  each  class,  the 
appropriate  penalty  associated  with  each  class,  and  the  Marine-to-class  fitness  matrix. 
The  code  for  these  assignment  model  inputs  is  found  in  Appendix  D,  lines  452-516 
and  4305-4812. 
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Figure  9.  RDdss  Relational  Schema 

The  assignment  model  is  the  other  component  of  the  modeling  components.  It 
has  been  modeled  in  AMPL  [Ref.  10],  a  language  and  a  computing  environment  for 
expressing,  solving,  and  analyzing  mathematical  programming  problems  (minimizing 
or  maximizing  a  function  of  decision  variables,  subject  to  constraints  on  the  variables). 
A  complete  discussion  of  the  assignment  model's  math  model  is  available  in  Chapter 
III,  Section  D. 

The  next  component  is  the  solver.  It  communicates  directly  with  AMPL,  the 
modeling  language  of  AMPLPlus.  As  mentioned  in  Chapter  II,  it  uses  an  algorithm 
called  CPlex,  which  is  an  optimization  package  for  linear,  network  and  integer  pro- 
gramming. Working  in  conjunction  with  AMPLPlus,  the  solver  finds  an  optimal 
solution. 

The  final  component  is  the  analyzer.  It  is  the  other  component  making  up  the 
user  interface.  This  is  where  the  RDdss  manager  analyzes  assignment  results,  seeking 
insights  for  developing  a  "good"  solution.  Insight  is  developed  mostly  by  the  graphs 
and  numerical  information  available  in  the  analyzer.  These  were  generated  in  Access 
97  using  its  report  generator  and  VBA  code.  The  programming  used  in  the  analyzer 
is  shown  in  Appendix  D  and  includes  lines  1-310,  2156-2214,  and  3756-3827. 
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Figure  10.  RDdss  Demonstration  Solver 

2.       Implementation 

Building  the  RDdss  was  an  iterative  process.  Some  steps  took  numerous  it- 
erations, and  some  were  straightforward.  Below  is  a  listing  of  the  14  major  steps  it 
took  to  build  the  RDdss. 

1.  Analyzing  the  current  system  was  the  first  step.  This  included  1)  interviewing 
USMC  and  DSAI  personnel,  2)  reviewing  available  documentation,  and  3) 
operating  the  RDM. 

2.  After  gathering  the  current  system  data,  it  was  necessary  to  develop  a  logical 
understanding  of  the  system.  This  was  accomplished  by  modeling  it  with 
BPWin.  Appendix  B  is  the  result  of  this  step. 

3.  With  this  system  understanding,  it  was  possible  to  envision  how  the  new 
system  would  make  assignments.  Using  standard  optimization  techniques  [Ref. 
11],  a  small-scale  demonstration  solver  was  built  using  Excel  97.  It  is  shown 
in  Figure  10. 

4.  Combining  the  system  understanding  and  the  data  requirements  for  the  demon- 
stration solver,  it  was  possible  to  envision  a  data  structure  for  the  reengineered 
system.  This  lead  to  the  development  of  a  third  normal  form  relational  schema 
for  the  RDdss  [Ref.  3]. 
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Figure  11.  RDdss  Decomposition  Diagram 

5.  Using  the  relational  schema  as  a  model,  the  RDdss  tables  were  built  in  Access 
97.  The  results  of  this  were  seen  earlier  in  Figure  9. 

6.  As  the  vision  for  the  reengineered  system  came  more  into  focus,  an  intuitive 
navigational  scheme  was  conceived.  This  lead  to  the  development  of  a  decom- 
position diagram  for  the  RDdss.  It  is  demonstrated  in  Figure  11. 

7.  Using  the  decomposition  diagram  as  a  model,  the  user  interface  was  built  for 
the  RDdss  in  Access  97.  The  Main  Switchboard  was  seen  earlier  in  Figure  8. 

8.  With  the  switchboards  now  in  place,  VBA  coding  was  commenced  [Ref.  9]. 
This  made  each  switchboard  functional  and  useful. 

9.  Building  upon  the  concept  of  the  demonstration  solver  from  step  3,  a  for- 
mal mathematical  assignment  model  for  the  RDdss  was  developed.  This  was 
introduced  in  Chapter  III,  Section  D. 

10.  The  COTS  applications,  AMPLPlus  and  CPlex  were  installed  on  the  personal 
computer  containing  the  RDdss. 

11.  With  AMPLPlus  now  installed,  it  was  possible  to  code  the  assignment  model 
into  the  application.  This  made  it  possible  to  verify  our  design. 

12.  Manually  creating  input  files  for  AMPLPlus  is  time  consuming.  So,  the  pre- 
processor was  coded.  This  automated  the  generation  of  the  class  demand, 
class  penalty,  and  Marine-to-class  fitness  matrix. 

13.  Further  automation  of  the  RDdss  was  accomplished  by  interfacing  Access  97 
and  AMPLPlus.  This  required  both  VBA  and  AMPL  coding.  The  end  result 
was  a  seamless  operation  of  the  two  applications. 
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Figure  12.  Actual  RDdss  Build  Sequence 

14.  Finally,  much  thought  was  given  to  ways  of  gaining  insight  into  the  assignment 
results.  This  lead  to  the  development  of  the  analyzer,  which  was  discussed 
briefly  in  the  previous  section. 

Some  of  these  steps  were  performed  in  parallel.  The  actual  order  followed  in 
building  the  RDdss  are  depicted  in  Figure  12. 

B.      USING  THE  RECRUIT  DISTRIBUTION  DECISION 
SUPPORT  SYSTEM 

In  this  section,  we  will  discuss  using  the  RDdss.  Three  aspects  are  covered,  1) 
setting  up  a  run,  2)  model  execution,  and  3)  customizing  a  run  and  results.  Each  is 
discussed  in  the  order  given  here. 

1.       Setting  up  a  Run 

Setting  up  a  run  of  the  RDdss  is  straightforward  and  easy  to  do.  Figure  13 
graphically  illustrates  the  steps  involved.  Starting  with  step  1  on  the  graph  and 
working  through  to  step  3d(iii),  we  will  discuss  a  run  set-up. 

The  RDdss  manager  starts  at  the  top  of  the  Main  Switchboard.   Here,  he  or 
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Figure  13.  Setting  up  a  Model  Run 

she  clicks  on  the  Import/Export  Data  button.  This  will  cause  the  Main  Switchboard 
to  close  and  the  Import/Export  Switchboard  to  open.  Prom  this  switchboard,  the 
RDdss  manager  will  import  the  RD1  file  and  the  BNA  extract  into  the  RDdss  MODS. 
This  is  easily  accomplished  by  clicking  on  the  corresponding  buttons  for  importing 
these  files.  Finally,  the  RDdss  manager  will  click  on  the  "Return  to  Main  Switch- 
board" button,  causing  the  Import/Export  Switchboard  to  close  and  the  Main  Switch- 
board to  reopen. 

The  next  step  is  data  maintenance.  This  includes  updating,  editing,  and/or 
deleting  of  school  related  information.  The  RDdss  manager  gets  to  the  Maintain  Data 
Switchboard  by  clicking  on  the  appropriate  button  on  the  Main  Switchboard. 

From  the  Maintain  Data  Switchboard,  the  RDdss  manager  will  start  at  the 
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top  and  work  his  or  her  way  down  to  the  bottom.  The  various  buttons  on  this 
switchboard  open  forms  where  data  maintenance  is  performed.  For  instance,  the 
first  button  opens  the  Maintain  School  Data  form,  allowing  the  RDdss  manager  to 
create,  edit,  and/or  delete  a  school.  The  other  buttons  allow  similar  operations  with 
the  PEFs,  and  fundamental  and  logical  properties.  After  the  RDdss  manager  has 
finished  maintaining  the  data,  he  or  she  returns  to  the  Main  Switchboard  by  clicking 
on  the  "Return  to  Main  Switchboard"  button. 

After  data  maintenance,  the  RDdss  manager  is  ready  to  perform  data  prepro- 
cessing in  prepartion  for  a  model  run.  By  clicking  on  the  Preprocessing  and  Execution 
button,  the  Main  Switchboard  closes  and  the  Preprocessing  and  Execution  Switch- 
board opens.  From  here,  as  on  all  other  switchboards,  the  RDdss  manager  starts  at 
the  top  and  works  down. 

The  first  three  preprocessing  buttons  directly  effect  the  generation  of  the  class 
demand,  class  penalty,  and  Marine-to-class  fitness  matrix.  This  is  why  they  come 
before  the  fourth  button,  Generate  AMPL  Files.  Preprocessing  in  the  correct  order 
will  reduce  the  amount  of  time  spent  setting  up  the  run,  by  minimizing  the  need  to 
generate  a  new  class  demand,  class  penalty,  and  Marine-to-class  fitness  matrix. 

The  first  preprocessing  button  concerns  special  assignments.  Specially  assign- 
ing a  recruit  affects  the  AMPL  input  in  two  ways.  First,  the  respective  member  is  not 
included  in  the  Marine-to-class  fitness  matrix,  since  they  already  have  an  assignment. 
Second,  the  class  demand  for  the  class  the  recruit  is  assigned  to  must  decrease  by 
one.  Otherwise,  it  may  become  overfilled. 

The  second  preprocessing  button  concerns  reclassification  of  a  Marine.  Re- 
classified Marines  affect  the  AMPL  input  in  two  ways.  First,  the  class  demand  of  the 
class  they  are  no  longer  assigned  to  must  increase  by  one.  This  provides  an  oppor- 
tunity to  fill  the  empty  seat  during  a  subsequent  run.  Second,  the  class  demand  of 
the  class  the  Marine  has  been  reassigned  to  must  decrease  by  one.  Otherwise,  it  may 
become  overfilled. 
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The  third  preprocessing  button  concerns  data  scrubbing,  which  also  affects  the 
AMPL  input.  It  is  an  attempt  to  identify  and  correct  errors  relating  to  the  Marines. 
An  example  is  a  Marine  who  has  been  given  an  unknown  PEF.  Since  it  is  not  identified 
by  the  RDdss,  the  member  will  receive  a  zero  fitness  score  for  every  class.  This  will 
prevent  the  Marine  from  getting  an  assignment. 

Following  the  completion  of  special  assignments,  reclassifications  and  data 
scrubbing,  the  RDdss  manager  is  ready  to  generate  the  AMPL  input  files.  After  going 
to  the  Generate  AMPL  Files  form,  the  first  concern  is  specifying  the  weights  for  the 
mandatory  and  desired  properties.  This  is  specified  by  the  RDdss  manager  at  step 
3d(i).  What  this  does  is  indicate  how  important  the  mandatory  properties  are  with 
respect  to  the  desired  properties.  For  instance,  if  the  RDdss  manager  decided  to  give 
a  weight  of  1.0  to  the  Mandatory  selection,  the  Desired  selection  would  automatically 
fill  in  with  0.0.  This  would  indicate  the  desired  properties  are  of  no  consequence.  The 
default  for  these  two  selections  is  0.7  for  Mandatory,  and  0.3  for  Desired. 

Next,  at  step  3d(ii),  the  RDdss  manager  selects  the  MCT  graduation  date 
desired.  This  is  selected  from  the  drop  down  list.  Then,  the  RDdss  manager  pushes 
the  "GO!"  button.  The  system  will  now  generate  the  AMPL  input  files,  completing 
the  run  set-up. 

2.       Model  Execution 

Execution  of  the  assignment  model  takes  place  after  the  run  set-up  has  been 
completed.  Figure  14  graphically  illustrates  the  steps  taken  to  execute  the  model.  A 
discussion  of  this  is  now  given. 

From  the  Main  Switchboard,  the  RDdss  manager  points  and  clicks  on  the 
Preprocessing  and  Execution  button.  This  takes  him  or  her  to  the  corresponding 
switchboard.  From  here,  the  Execute  Solver/ Options  selection  is  made.  This  opens 
up  the  form  where  the  model  is  executed  from. 

The  Execute  Solver/Options  form  provides  the  RDdss  manager  the  ability  to 
set  the  fit  and  fill  coefficients  for  the  objective  function.  The  default  values  are  1  for 
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Figure  14.  Model  Execution 

each  coefficient.  The  RDdss  manager  can  change  either  of  these  with  a  whole  number 
from  0  -  100.  The  significance  of  these  numbers  is  discussed  in  detail  later  in  this 
chapter.  Once  the  desired  coefficients  have  been  chosen,  the  Execute  Solver  button 
is  pushed. 

By  selecting  the  Execute  Solver  button,  AMPLPlus  is  launched.  This  applica- 
tion will  run  without  user  interaction.  First,  it  will  import  the  RDdss  mathematical 
assignment  model.  Next,  the  specified  fit  and  fill  coefficients  are  retrieved.  Finally, 
the  preprocessed  data  generated  during  the  run  set-up  are  imported.  Using  this  in- 
put data,  AMPLPlus  works  in  conjunction  with  the  solver  and  generates  an  optimal 
assignment  solution. 
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With  the  generation  of  an  optimal  assignment  solution,  the  results  are  sent  to 
an  output  file  called  "rdm.out."  AMPLPlus,  having  completed  its  task,  now  closes. 
This  indicates  an  optimal  solution  was  found  and  is  available  for  importing.  So,  the 
RDdss  manager  now  imports  the  results  by  pushing  the  Import  Results  button  on 
the  Execute  Solver/Option  form. 

3.        Customizing  a  Run  and  Results 

As  mentioned  in  the  previous  subsection,  the  RDdss  manager  can  set  the  fit 
and  fill  coefficients  of  the  objective  function.  This  is  a  key  capability  of  the  new 
system.  It  is  the  means  by  which  the  RDdss  manager  can  customize  a  run  and 
"game"  the  RDdss.  This  "gaming"  of  the  new  system  is  essential  for  determining  a 
"good"  assignment  result. 

For  instance,  if  the  fit  coefficient  is  set  to  0,  and  the  fill  coefficient  is  set  to 
a  number  >  0,  say  1,  the  assignment  model  will  maximize  the  fill  of  schools  having 
early  report  dates.  This  has  both  advantages  and  disadvantages.  One  advantage  is 
the  average  wait  time  for  Marines  to  attend  a  school  is  minimized.  Another  is  that 
the  number  of  unfilled  school  seats,  having  a  report  date  between  the  current  and 
next  scheduled  model  run,  is  minimized.  However,  a  disadvantage  is  the  average 
Marine-to-school  fitness  score  is  guaranteed  to  be  the  lowest  score  of  all  runs. 

Conversely,  if  the  fit  coefficient  is  set  to  a  number  >  0,  say  1,  and  the  fill 
coefficient  is  set  to  0,  the  assignment  model  will  maximize  the  average  Marine-to- 
school  fitness.  An  advantage  here  is  the  increased  chance  of  each  Marine  successfully 
completing  their  ELS,  establishing  a  pattern  of  success  early  in  theri  career.  However, 
one  disadvantage  is  the  wait  time  for  a  Marine  to  attend  a  school  is  guaranteed  to  be 
the  longest.  Also,  the  number  of  unfilled  school  seats,  having  a  report  date  between 
the  current  and  next  scheduled  model  run,  is  guaranteed  to  be  the  greatest. 

Neither  of  the  above  solutions  is  ideal.  A  better  solution  is  some  where  be- 
tween these  two  extremes.  By  changing  the  fit  and  fill  coefficients  of  the  objective 
function,  the  RDdss  manager  has  a  means  for  customizing  each  run  to  ensure  a  "good" 
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assignment  result  is  found. 

C.      INNOVATIONS  IN  USER  INTERACTION 

A  number  of  user  interaction  innovations  have  been  made  in  the  RDdss.  Two  of 
them  have  already  been  discussed.  These  were  the  intuitive  navigational  scheme  using 
the  switchboards,  and  the  elimination  of  manually  entering  data  already  available  in 
the  system.  One  more  note  worthy  innovation  is  now  introduced.  It  is  a  date  change 
innovation. 

The  date  change  innovation  concerns  changing  the  graduation  date  of  the 
Marines  in  the  downloaded  RD1  file.  This  is  necessary  for  generating  correct  as- 
signment results.  The  date  in  the  downloaded  RD1  file  is  based  on  graduation  from 
the  MCRD.  However,  the  model  needs  to  know  when  the  Marines  are  available  for 
assignment.  Availability  is  based  on  the  MCT  graduation  date. 

The  old  system  solution  to  this  problem  took  three  steps.  First,  the  RDM 
manager  used  a  calendar  to  determine  the  MCT  graduation  date.  This  is  normally 
27  days  following  completion  of  MCRD,  and  is  always  on  a  friday.  So,  the  RDM 
manager  will  find  the  MCRD  graduation  date  on  the  calendar  and  count  27  days. 
The  friday  nearest  to  this  day  is  the  day  desired.  Second,  this  MCT  graduation  date, 
along  with  the  RD1  file,  is  sent  to  another  branch  in  the  USMC  where  the  date  change 
is  made.  Third,  the  file  is  returned  to  the  RDM  manager,  who  imports  the  file  into 
the  RDM. 

The  reengineered  system  has  streamlined  this  process.  Within  the  RDdss,  the 
RDdss  manager  makes  the  date  change.  It  is  accomplished  with  the  push  of  a  couple 
buttons. 

Figure  15  shows  how  these  changes  are  made.  First,  the  RDdss  manager  se- 
lects the  MCRD  graduation  date  requiring  a  change.  Once  this  is  selected,  a  calendar 
appears.  Its  purpose  is  to  help  the  RDdss  manager  correctly  identify  the  MCT  grad- 
uation date.   Next,  the  "="  button  is  pushed.   Its  purpose  is  to  add  the  number  of 
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Figure  15.  Changing  a  Graduation  Date 

days  specified  in  the  "Days"  field  (default  is  27),  to  the  MCRD  graduation  date.  This 
updates  the  calender  as  shown  on  the  far  right.  When  the  correct  date  is  found,  the 
"Change  Date"  button  is  pushed.  This  makes  the  desired  change  to  the  data  in  the 
RDdss  database. 

D.      INNOVATIONS  IN  ANALYZING  MODEL  RESULTS 

As  discussed  earlier,  the  RDdss  manager  has  the  capability  of  "gaming"  the 
system  by  using  different  fit  and  fill  coefficients.  However,  having  this  ability  is  not 
enough.  The  RDdss  manager  still  needs  a  means  to  compare  one  run  against  another. 

It  is  hard,  if  not  impossible,  to  estimate  the  quality  of  a  solution  simply  by 
looking  at  a  list  of  assignments.  The  actual  assignment  results  depend  on  the  values 
of  the  fit  and  fill  coefficients,  which  cannot  be  set  at  the  ideal  levels  without  under- 
standing the  impact  on  solution  quality.  So,  analyzing  run  results  to  get  insight  and 
develop  a  "good"  solution  is  now  discussed. 

Four  measures  are  considered  particularly  useful  in  evaluating  alternative  so- 
lutions. 

1.  Fitness  premium.  The  Marine-to-school  fitness  function  is  defined  in  a  way 
that  for  each  school,  the  average  fitness  over  all  Marines  eligible  for  that  school 
is  100.  So,  for  any  school,  if  the  average  fitness  computed  over  Marines  assigned 
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to  that  school  is  greater  than  (or  less  than)  100,  the  difference  represents  a 
positive  (or  negative)  premium. 

2.  Unfilled  seats  in  first  week.  Since  the  model  is  run  nearly  every  week,  seats 
left  unfilled  in  classes  starting  in  the  first  week  will  remain  unfilled.  This 
represents  wasted  resources. 

3.  Average  wait  time  for  Marines.  Experience  has  shown  that  the  longer  a  Ma- 
rine waits  before  attending  their  ELS,  the  greater  the  chance  of  disciplinary 
problems.  Therefore,  it  is  generally  better  to  keep  this  wait  period  short. 

4.  Unassigned  Marines.  A  purpose  of  the  system  is  to  assign  each  Marine  to  a 
school.  Therefore,  knowing  the  number  of  unassigned  Marines  is  an  important 
measure. 

To  provide  the  RDdss  manager  insight  into  the  assignment  results,  these  mea- 
sures have  been  incorporated  into  output  representations,  including  summary  statis- 
tics and  detailed  graphs.  Each  output  provides  both  numerical  and  visual  informa- 
tion. The  numbers  are  used  for  quantitative  comparisons.  The  graphical  information 
provides  a  big  picture  view  for  use  in  a  qualitative  comparison. 

As  an  example,  consider  the  two  fitness  graphs  in  Figure  16.  Both  of  these 
were  produced  using  an  RD1  file  of  344  Marines  and  an  BNA  extract  with  school  data 
covering  a  120  day  period.  Below  each  graph  is  amplifying  and  numerical  information. 
The  bar  chart  on  the  left  has  a  fit  coefficient  of  0  and  a  fill  coefficient  of  1.  Additionally, 
its  fitness  premium  is  28  (=128-100).  The  bar  chart  on  the  right  has  a  coefficient  of 
1  for  both  fit  and  fill.  Its  fitness  premium  is  38  (=138-100).  The  fit  numbers  are 
quantitatively  comparable.  The  fitness  premium  for  the  run  on  the  right  is  36% 
(=100%  x  [38-28J/28)  better  than  the  run  on  the  left. 

The  above  numerical  analysis  is  also  supported  by  visually  comparing  the  bar 
charts.  Notice  the  large  number  of  blips  falling  below  the  fitness  score  of  100  on 
the  left  graph.  Each  blip  represents  a  Marine,  and  there  are  actually  44  of  them. 
Conversely,  notice  the  comparatively  small  number  of  blips  below  100  on  the  right 
graph.   There  are  21  of  them.   The  visual  comparison  of  the  two  graphs  reveals  the 
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Figure  16.  Two  alternative  results:  Fit 
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Figure  17.  Two  alternative  results:  Fill 

qualitative  difference.  The  graph  on  the  right  indicates  a  higher  quality  Marine-to- 
school  fit.  Of  course,  this  supports  the  numerical  comparison  performed  earlier. 

As  another  example,  consider  the  two  fill  graphs  in  Figure  17.  These  are 
based  on  the  two  model  runs  just  described.  In  other  words,  the  left  graph  has  a  fit 
coefficient  of  0  and  a  fill  coefficient  of  1 ,  and  the  right  graph  has  a  coefficient  of  1  for 
both  fit  and  fill. 

Visually,  these  two  graphs  display  an  obvious  difference.  To  appreciate  how 
they  are  different  requires  an  understanding  of  the  significance  of  the  blips.  As  note  1 
of  each  graph  indicates,  "The  classes  are  ordered  by  penalty  from  highest  to  lowest." 
Recall  from  Chapter  III,  this  means  the  ordering  is  by  class  report  date,  starting  with 
the  earliest  date.  In  other  words,  the  bar  chart  on  the  left  indicates  almost  every 
Marine  will  start  school  within  the  first  three  weeks.  As  discussed  earlier,  this  is 
desirable.  The  bar  chart  on  the  right  has  its  blips  more  spread  out.  So,  by  visually 
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comparing  the  two  graphs,  the  left  one  has  a  higher  quality  with  respect  to  minimizing 
wait  time. 

This  is  easily  validated  by  the  numbers  given  in  note  5  of  each  graph.  The 
average  wait  of  a  Marine  from  the  left  bar  chart  is  1.33  weeks,  and  the  average  wait 
from  the  other  bar  chart  is  1.69  weeks.  Now  we  quantitatively  compare  these  values. 
The  results  from  the  left  graph  are  27%  (=100%  x  [1.69-1. 33]/1.33)  better  than  the 
right. 

In  the  following  table,  the  results  from  three  runs  are  given.  The  measures  on 
the  left  are  the  four  measures  described  earlier.  Each  run  used  the  same  344  Marines 
and  120  days  worth  of  school  classes.  The  information  for  the  first  and  third  runs 
is  from  the  two  model  runs  discussed  above.  The  second  run  was  determined  by 
"gaming"  the  system.  In  other  words,  we  tried  numerous  combinations  of  the  fit  and 
fill  coefficients  until  a  "good"  solution  was  found.  Run  2  was  the  result.  Understand 
though,  we  are  not  saying  "best"  solution.  Only  the  USMC  can  determine  what  is 
best  for  them. 


Run  1 
(fit=0;  fill=l) 

Run  2 
(fit=l;  fill=ll) 

Run  3 
(fit=l;  fill=l) 

Unfilled  Seats  (1st  week) 

23 

23 

23 

Unassigned  Marines 

3 

3 

3 

Average  Wait  (weeks) 

1.33 

1.33 

1.69 

Fitness  Premium 

28 

31 

38 

The  reason  we  feel  Run  2  is  a  "good"  solution  is  based  on  a  quantitative 
comparison  of  the  measures  and  one  additional  piece  of  information.  It  is  the  fact 
the  USMC  feels  it  is  more  important  to  minimize  wait  time  than  to  maximize  the 
Marine-to-school  fit.  The  remainder  of  this  section  explains  how  we  decided  Run  2 
was  a  "good"  solution. 

Starting  with  the  values  for  unfilled  seats,  it  is  obvious  all  three  runs  are  equal. 
The  same  is  true  for  the  unassigned  Marines  measure.  So,  these  two  measures  provide 
no  insight  for  comparison  purposes. 
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Concerning  the  average  wait,  the  values  of  Runs  1  and  2  are  equal.  Further, 
their  1.33  value  is  numerically  smaller  than  the  1.69  value  of  Run  3.  This  is  good  for 
Runs  1  and  2.  As  was  proven  earlier,  a  value  of  1.33  is  27%  better  than  1.69. 

Finally,  there  is  the  fitness  premium  measure.  The  first  observation  made  is 
that  Run  1  is  a  candidate  for  elimination.  The  reason  is  as  follows.  Run  2  has  the 
same  score  as  Run  1  for  the  first  three  measures  in  the  table,  but  it  shows  an  11% 
(=100%x[31-28]/2S)  increase  in  the  fitness  premium.  So,  Run  1  is  eliminated  from 
the  competition. 

This  leaves  the  last  two  runs.  Run  3  shows  a  23%  (=100%x[38-31]/31)  increase 
in  fitness  premium  over  Run  2.  This  creates  a  conflict.  Run  3  has  a  27%  increase  in 
average  wait  time,  which  is  bad.  Conversly,  it  has  a  23%  increase  in  fitness  premium, 
which  is  good.  To  decide  which  solution  is  better,  more  information  is  necessary.  This 
comes  from  the  fact  mentioned  earlier,  that  the  USMC  feels  it  is  more  important  to 
minimize  wait  time  than  to  maximize  the  Marine-to-school  fit. 

We  can  now  conclude  Run  2  is  a  better  solution  than  Run  3.  Here  is  why  Run 
2  minimizes  average  wait  by  27%  by  giving  up  a  23%  increase  in  Marine-to-school  fit. 
This  agrees  with  the  USMC  desire  to  more  strongly  emphasize  a  minimum  waiting 
time.  So,  Run  2  is  a  better  solution  than  Run  3.  Since  it  also  satisfies  the  known 
desires  of  the  USMC,  we  feel  it  is  a  "good"  solution  as  well. 

E.       OBJECTIVE   COMPARISON   OF   OLD   AND    NEW 
SYSTEM  SOLUTIONS 

In  the  previous  section,  we  described  how  a  set  of  solutions  generated  by  the 

RDdss  are  compared  to  determine  a  "good"  solution.  Using  the  same  approach,  we 

now  demonstrate  how  to  objectively  compare  the  results  from  the  old  system  with 

the  new  system.    This  provides  the  USMC  a  means  of  determining  which  system's 

solution  is  better,  if  either.  Comparison  of  the  new  and  old  system  results  has  been 

made  easy  by  automating  the  importing  of  the  RDM  result  into  the  RDdss. 
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We  have  summarized  the  important  data  for  the  old  and  new  systems  in  the 
following  table,  based  on  the  same  344  Marines  and  120  days  of  school  classes  dis- 
cussed earlier.  Since  the  assignment  algorithm  for  the  RDM  was  designed  to  maximize 
fill,  a  run  from  the  RDdss  based  strictly  on  fill  has  also  been  included.  It  is  the  run 
with  a  fit  coefficient  of  0,  and  a  fill  coefficient  of  1.  The  last  column,  labeled  "Run 
2,"  is  a  "good"  solution  we  found  by  gaming  the  RDdss. 


Run  1 
(fit=0;  fill=l) 

RDM 

Run  2 
(fit=l;  fill=10) 

Unfilled  Seats  (1st  week) 

23 

23 

23 

Unassigned  Marines 

3 

3 

3 

Average  Wait  (weeks) 

1.33 

1.34 

1.34 

Fitness  Premium 

28 

29 

32 

We  start  by  objectively  comparing  the  RDdss  fill-based  result  with  the  RDM 
result.  They  are  labeled  "Run  1"  and  "RDM,"  respectively.  As  we  shall  prove,  the 
RDdss  has  done  a  better  job  at  filling  early  school  seats  than  the  RDM. 

Of  the  four  measures,  only  one  provides  any  useful  insight  for  this  comparison. 
It  is  the  average  wait  measure.  The  reason  the  other  three  do  not  apply  is  as  follows. 
The  first  two  measures  have  the  same  values,  so  they  provide  no  insight.  The  last 
measure  is  not  too  meaningful,  since  Run  1  is  strictly  based  on  maximizing  fill.  In 
other  words,  it  disregards  fit  because  its  fit  coefficient  is  set  to  0.  This  leaves  the 
average  wait  measure. 

A  quantitative  comparison  of  the  average  wait  shows  the  RDdss  solution  is 
1%  (100%x[1.34-1.33]/1.33)  better  than  the  RDM  solution.  This  is  explainable  by 
considering  the  approach  used  in  each  model.  The  RDM  assignment  algorithm  maxi- 
mizes the  fill  of  early  school  seats  by  looking  at  each  school  in  a  sequential  fashion.  In 
contrast,  the  RDdss  conducts  a  global  comparison  of  Marines  and  schools.  In  other 
words,  it  goes  through  numerous  iterations  until  it  finds  an  optimal  fill  solution.  This 
show  that  the  RDM  assignment  algorithm  is  only  closely  approximating  the  optimized 
assignment  result. 
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Finally,  we  "gamed"  the  new  system  until  a  "good"  solution  was  found.  This 
is  Run  2.  It  has  a  fit  coefficient  of  1  and  a  fill  coefficient  of  10. 

The  objective  comparison  of  the  RDM  and  Run  2  solutions  is  straigtforward. 
Since  the  first  three  measures  are  the  same  for  both  results,  they  provide  no  insights. 
This  leaves  only  the  fitness  premium  measure.  A  quantitative  comparison  of  this 
measure  shows  Run  2  has  a  10%  (100%x[32-29]/29)  better  solution  than  RDM.  This 
shows  the  benefit  of  "gaming"  the  RDdss. 

F.       SUMMARY 

This  relatively  long  chapter  covered  some  important  points  related  specifically 
to  the  RDdss.  The  architectural  components  of  the  new  system  were  discussed  first, 
followed  by  the  steps  taken  to  actually  build  this  DSS.  Then,  from  an  operational  point 
of  view,  using  the  RDdss  was  discussed.  This  included  setting  up  a  run,  executing 
the  model,  and  customizing  a  run  for  determining  a  "good"  solution.  Next,  two 
innovations  were  discussed  in  great  detail.  These  included  the  date  change  innovation 
and  the  analyzing  model  results  innovation.  Finally,  a  means  of  objectively  comparing 
the  solution  from  the  old  and  new  systems  was  discussed. 

We  truly  believe  the  innovations  and  capabilites  introduced  by  this  prototype 
can  greatly  benefit  the  USMC's  Marine  Enlisted  Assignments  branch.  It  can  help  the 
USMC  to  more  effectively  accomplish  its  mission  as  stated  by  the  Commandant  of 
the  Marine  Corp,  "to  put  the  right  Marine  in  the  right  place  at  the  right  time  with 
the  right  skills  and  quality  of  life." 


41 


42 


V.         CONCLUSION 

This  concluding  chapter  has  three  short  sections,  followed  by  a  final  comment. 
In  the  first  section,  we  reiterate  the  significant  contributions  made  in  the  thesis.  This 
is  followed  by  a  brief  description  of  some  lessons  we  learned.  Then,  some  recommended 
improvements  for  the  prototype  are  given.  Following  this  last  section,  we  comment  on 
how  this  thesis  work  might  benefit  the  other  branches  of  the  United  States  military. 

A.  SIGNIFICANT  CONTRIBUTIONS 

Four  significant  contributions  beneficial  to  the  USMC  were  made  in  this  thesis. 
These  were  discussed  in  detail  in  the  previous  three  chapters.  A  list  and  summary  of 
the  contributions  is  given  here. 

•  Analysis  and  articulation  of  the  recruit  distribution  process  -  by  interviewing 
USMC  and  DSAI  personnel,  reviewing  available  documentation,  and  oper- 
ating the  RDM  we  were  able  to  articulate  an  understanding  of  the  recruit 
distribution  process  using  IDEF  process  modeling.  Additional  data  modeling 
was  articulated  in  a  third  normal  form  relational  schema. 

•  Development  of  a  mathematical  model  -  by  analyzing  the  assignment  process, 
criteria,  and  constraints,  USMC  policies  and  objectives,  a  mathematical  model 
for  the  new  system  was  developed. 

•  Fully  functional  prototype  -  an  intuitive  and  easy  to  understand  new  sys- 
tem that  seamlessly  interfaces  with  the  old  system  was  built.  It  provides  an 
objective  means  of  comparing  assignment  results  of  both  systems,  and  was 
developed  using  COTS  software  applications. 

•  Elimination  of  the  proprietary  solver  and  associated  contractor  lock-in  -  this 
was  accomplished  by  replacing  the  proprietary  solver  with  two  COTS  appli- 
cations. 

B.  LESSONS  LEARNED 

Our  original  goal  was  to  build  an  As-Is  IDEFO  model  of  the  RDM,  about  two 
months  after  starting  the  thesis.   This  worked  out  fine.   The  next  goal  was  to  take 
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another  six  weeks  to  develop  a  To-Be  IDEFO  model  [Ref.  1].  This  did  not  work  out, 
for  two  reasons.  First,  our  understanding  of  the  entire  recruit  distribution  process 
was  still  not  mature  enough  to  build  the  To-Be  model.  Nearly  half  a  year  was  spent 
just  thinking  about  its  many  details.  Second,  it  is  nearly  impossible  to  envision  the 
new  system  without  first  knowing  the  capabilities  and  limitations  of  the  application 
used  to  build  the  prototype.  One  extreme  envisions  the  impossible,  while  the  other 
barely  touches  the  reengineered  system's  potential.  The  lesson  learned  from  this  was 
that  properly  reengineering  a  process  requires  two  things.  A  detailed  understanding 
of  the  current  process  environment,  and  a  good  working  knowledge  of  the  capabilities 
and  limitations  of  the  application  used  to  build  the  prototype. 

Getting  feedback  from  the  Marine  Enlisted  Assignments  branch  was  not  always 
easy.  Correspondence  normally  occured  by  e-mail.  There  was  an  inverse  relationship 
between  the  number  of  questions  asked  and  the  number  of  answers  given.  As  the  one 
increased,  the  other  decreased.  So.  another  lesson  learned  was  that  it  is  best  to  limit 
each  correspondance  to  a  question  or  two. 

While  writing  code,  it  is  best  to  simultaneously  document  the  code's  purpose. 
Going  back  and  trying  to  provide  documentation  at  the  end  is  too  frustrating.  This 
requires  a  considerable  amount  of  discipline,  but  is  well  worth  the  effort.  The  lesson 
learned  here  is  document  as  you  code. 

C.      PROTOTYPE  IMPROVEMENTS 

A  big  part  of  this  thesis  involved  the  building  and  refinement  of  the  prototype. 
The  following  topics  are  areas  where  the  RDdss  could  use  improvements. 

1.        Speed  Improvements 

a.  Preprocessing  Data 

Of  all  the  steps  necessary  to  complete  a  run  of  the  RDdss,  the  prepro- 
cessing step  is  the  most  time  consuming.  For  the  344  Marines  and  approximately 
500  school  classes  analyzed  in  this  thesis,  it  takes  about  30  minutes  to  preprocess 
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this  data.  This  is  about  ten  times  longer  than  the  assignment  model  takes  to  find 
an  optimal  solution.  As  the  size  of  the  preprocessing  data  is  doubled,  so  is  the  time 
needed  to  preprocess  it.  Finding  a  way  to  speed  up  this  process  is  desirable.  One 
possibility  is  to  find  a  way  to  perform  all  the  preprocessing  in  main  memory,  with 
only  two  accesses  to  the  hard  drive.  The  first  access  is  to  get  the  necessary  Marine 
and  school  data.  The  second  is  to  write  the  preprocessed  results  back  to  the  hard 
drive. 

6.  Analyzing  Result 

Compared  to  all  other  forms  and  switchboards  in  the  RDdss,  opening 
the  "analyze  results"  forms  is  the  most  time  intensive.  With  the  344  Marines  and 
approximately  500  school  classes,  it  takes  just  under  a  minute  for  any  of  these  three 
to  open.  This  feels  like  an  eternity  when  you  are  in  a  hurry.  The  reason  it  takes 
so  long  is  the  creation  of  temporary  tables,  numerous  calculations  and  comparisons, 
and  retrieving  of  data  from  flat  files.  Finding  a  way  to  reduce  this  time  is  desirable. 
One  possibility  is  to  create  another  form  which  would  contain  only  the  four  objective 
measures.  Currently,  the  RDdss  manager  must  go  to  two  different  forms  for  this 
information.  Each  containing  information  and  displays  in  addition  to  the  objective 
measures,  which  slow  them  down. 

2.       Multiple  Solution  Storage 

Currently,  the  prototype  will  only  save  the  results  of  one  solution.  This  means 
the  RDdss  manager  must  either  print-out  hard  copies  of  the  graphs,  or  manually 
write  down  each  solution's  objective  measures  for  comparison  with  other  runs.  An 
improvement  here  should  allow  the  storage  of  at  least  three  solutions.  This  would 
permit  the  RDdss  manager  to  easily  compare  each  solution.  He  or  she  could  then 
eliminate  one  or  two  undesirable  solutions,  while  continuing  to  search  for  a  "good" 
one. 
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3.       Administration  Switchboard 

To  look  at  all  the  schools  or  properties  in  one  display,  the  RDdss  manager 
must  open  up  the  associated  school  or  property  table.  A  reason  for  doing  this  is 
system  administration.  For  instance,  if  a  supervisor  is  auditing  the  RDdss's  property 
data,  looking  at  all  the  data  at  one  time  is  convenient.  A  simple  way  of  including 
this  feature  is  by  adding  another  switchboard.  The  switchboard's  buttons  would  have 
VBA  code  associated  with  them,  causing  the  desired  tables  to  open. 


Any  benefits  derived  from  this  thesis  work  were  specifically  aimed  at  the 
USMC.  However,  it  does  not  have  to  end  there.  Like  the  USMC,  other  branches 
of  the  United  States  military  must  deal  with  the  problem  of  how  best  to  assign  their 
service  members  to  schools.  Since  all  the  services  require  their  enlisted  personnel  to 
take  the  ASVAB  test,  the  approach  used  in  our  prototype  might  prove  an  ideal  solu- 
tion. Further,  our  efforts  may  also  contribute  to  the  reengineering  of  other  assignment 
models.  So,  this  thesis  work  could  actually  benefit  all  branches  of  the  United  States 
military. 
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APPENDIX  A.  ACRONYMS 


Acronym=  >  Meaning 

AMPL  A  Modeling  Language  for  Mathematical  Programming 

ARMS  Automated  Recruit  Management  System 

ASVAB  Armed  Services  Vocational  Aptitude  Battery 

BNA  By  Name  Assignment  System 

BPWin  Business  Process  for  Windows 

COTS  Commercial-off-the-shelf 

CPlex  Optimization  Package  for  Complex  Linear,  Network  and  Integer  Programming 

DSAI  Decision  Support  Associates,  Inc. 

DSS  Decision  Support  System 

ELS  Entry  Level  School 

ICOM  Input,  Control,  Output,  Mechanism 

IDEF  Defense  Institute  Modeling 

IDEFO  Business  Process  Modeling 

MCRD  Marine  Corps  Recruit  Depot 

MCT  Marine  Combat  Training 

MODS  Military  Operational  Data  Store 

MOS  Military  Occupational  Specialty 

PEF  Program  Enlisted  For 

RD1  Recruit  Distribution  Input  File 

RD3  Recruit  Distribution  Output  File 

RDdss  Recruit  Distribution  Decision  Support  System 

RDM  Recruit  Distribution  Model 

USMC  United  States  Marine  Corps 

VBA  Visual  Basic  for  Applications 
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APPENDIX  B.  AS-IS  RD  BUSINESS 
PROCESS  (IDEFO)  MODEL 


AUTHOR:  Kevin  J  Snoap 
PROJECT:   RDM  Project 


NOTES:  12  3  4  5  6  7  8  9  10 


DATE:  10/2/97  H  WORKING 
REV:     7/25/98 


RECOMMENDED 


PUBLICATION 


READER  DATE 


CONTEXT: 
TOP 


BNA  Extract 


RD1  File 


Special  Assignments  File 


Optimization 
Options 


Dictionary 


Previous 
Run  Data 


RDM 


,  I,,, .,,',, ,,.i: 


Algorithm 


Model 
Manager 


NODE: 


TITLE: 


Approved  Assignments 


Reports 
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USED  AT:    AUTHOR:  Kevin  J  Snoap 
PROJECT:  RDM  Project 


I  NOTES:  1   23456789  10 


DATE:  11/20/97 
REV:     7/2S/98 


RECOMMENDED 


PUBLICATION 


READER  DATE 


Optimization 
Options 


Special 
Assignments  File 


Previous 

Run 

Data 


Dictionary 


Input 


•        Processing        * 


Model 
Manager 


Input 

Processing 

Data 


RISC  Input 


_,  Solver 


RISC  Output 


Output 
Processing 


3 


Algorithm 


Approved 
Assignments 


Reports 


TITLE: 


AUTHOR:   Kevin  J  Snoap 
PROJECT:   RDM  Project 


NOTES:  1   234S6789  10 


DATE:  11/20/97 
REV:     7/25/98 


RECOMMENDED 


PUBLICATION 


READER  DATE 


Input  Processing 


NUMBER: 
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AUTHOR:  Kevin  J  Snoap 
PROJECT:   RDM  Project 


NOTES:  123456789  10 


DATE:  12/11/97 
REV:     7/25/98 


RECOMMENDED 


PUBLICATION 


CONTEXT: 


Raw  Data 

Edit  Data 

' 

View 
RD1  File 

2 

j 

Data  Input 

I 

i'"-™*" 

'     Select  SQL 
Display 
Preference 

3 

Model 
Manager 

NODE: 


Data  Manipulation 


USED  AT: 


AUTHOR:  Kevin  J  Snoap 
PROJECT:  RDM  Project 


NOTES:  123456789  10 


DATE:  12/11/97 
REV:     7/25/98 


RECOMMENDED 


PUBLICATION 


DATE    CONTEXT: 


Model 
Manager 


Special 
Assignments 
Manipulation 


Data  Input 


Edit  Data 


NUMBER: 
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USED  AT: 


AUTHOR:  Kevin  J  Snoap 
PROJECT:   RDM  Project 


NOTES:  123456789  10 


DATE:  12/11/97 
REV:     7/25/98 


RECOMMENDED 


PUBLICATION 


DATE    CONTEXT: 


Raw  Data 

■> _ 

Generate 
Quota  from 

Data  Input 

BNA  Extract 

1 

■ 

Change 
Quota 
Priority 

2 

1 

Model 
Manager 

NODE: 


Quota  Manipulation 


AUTHOR:  Kevin  J  Snoap 
PROJECT:   RDM  Project 

NOTES:  1   23456789  10 


DATE:  12/11/97 
REV:     7/25/98 


RECOMMENDED 


PUBLICATION 


DATE    CONTEXT: 


Raw  Data 

'    Create 
New  S.A. 
1 

\ 

I 

"      Find 
All  S.A.'s? 

2 

I 

1 

Edit 
S.A. 

3 

n 

■ 

'    Delete 
S.A. 

4 

s 

1 

1 

Data 

Model 
Manager 

'    Delete 
All  S.A.'s 

5 

Input 

\ 

'     '     t 

Special  Assignments  Manipulation 


NUMBER: 
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AUTHOR:   Kevin  J  Snoap 
PROJECT:  RDM  Project 


NOTES:  1   23456789  10 


DATE:  12/11/97 
REV:     7/25/98 


RECOMMENDED 


PUBLICATION 


Find  All 
RD1  Files? 


Model 
Manager 


Delete 
Marine 


Delete 
All  Marines 


Data  Input 


View  RD1  File 


USED  AT: 

AUTHOR:   Kevin  J  Snoap 

DATE:  12/10/97 

■  working 

READER          DATE 

CONTEXT: 
A1       ^O 

PROJECT:   RDM  Project                           REV:     7/25/98 
NOTES:  1   23456789  10 

g 

RAFT 

F 

ECOMMENDED 

F 

UBLICATION 

Optimization 
Options 

Previous 

Run 

Data 

r 

Optimization 
Choice 

|  Opt 
I  Inpi 

mization 
t 

1 

'     Delete       , 

Runtime 
Parameters  1 

2) 

Run 

Time 
Input 
Choices 

Model 
Manager 

J 

'      Edit 

Runtime 
Parameters 

j 

: 

3 

'Creat 
Run 

3  New 
time 

i 

Parameters 

4 

' 

— r^ 

la 

'     Select 
Runtime 
Input 

5 

1    Run  Time  Input 

I 

NODE: 

AU 

TITLE:                                        Run  Time  Options 

NUMBER: 

i 
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AUTHOR:  Kevin  J  Snoap 
PROJECT:  RDM  Project 

NOTES:  1   23456789  10 


DATE:  12/17/97 
REV:     7/25/98 


I  WORKING 


RECOMMENDED 


PUBLICATION 


READER  DATE 


CONTEXT: 


|  Dictionary 
i  Choices 

Dictionary    |*i 


Create  New 


Model 
Manager 


Dictionary 


Find  All 
Dictionaries?  h 


, -.. i  -,-.,.u 


Edit 
Dictionary    & 

3  S 


Delete 
Dictionary 


Select  Dictionary 

Dictionary 


_ 


Selected 


NODE: 


Dictionary  Selection 


NUMBER: 


USED  AT: 


AUTHOR:   Kevin  J  Snoap 
PROJECT:  RDM  Project 

NOTES:  1   2  3  4  5  6  7  8  9  10 


DATE:  11/30/97 
REV:     7/25/98 


I 


RECOMMENDED 


PUBLICATION 


READER  DATE 


CONTEXT: 


Selected 
Dictionary 


School  Data  | 
Maintenance 


Model 
Manager 


PEF 
Maintenance 

2 


SE 


Property 
Maintenance 


CID 
Browsing 


Dictionary  Input 


NODE: 


TITLE: 


Dictionary  Maintenance 


NUMBER: 
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USED  AT: 


AUTHOR:  Kevin  J  Snoap 
PROJECT:  ROM  Project 

NOTES:   123456789  10 


DATE:  1272/971 
REV:     7/25/98 1 


I  WORKING 


RECOMMENDED 


PUBLICATION 


READER 


CONTEXT: 


Selected 
Dictionary 


Schools  Using 
PEF  Viewer 


Model 
Manager 


Viewed  School  to 
PEF  Association 


Release  School 
Numbers? 


School  Data 
Browser 


j|   Dictionary  Input 


School  Data  Maintenance 


USED  AT: 

AUTHOR: 

Kevin  J  Snoap 

i 

DATE 

12/2/97 

■ 

WORKING 

READER          DATE 

CONTE 

XT: 

__ 

PROJECT:  RDM  Project                            REV:     7/25/98 

DRAFT 

r__ 

A1.5.1 

NOTES:  1   23456789  10 

RECOMMENDED 

PUBLICATION 

Dictionary 
Input 

Dictionary 

'Create  New 
School 
1 

I 

1 

'Edit  School 
Data 

2 

i 

Viewed  School  to 

'    Delete 
School 

3 

I 

I 

3 
S 

_____  __ 

_ 

'      Edit 

School/PEF 

Association 

4 

I 

I 

PEF  Association 

Model 
Manager 

I                                             1 

'        Edit 
School/Property 
Association 

5 

! 

NODE: 

A1J5.1J 

TITLE:                                     School  Data  Browser 

NUMBER: 

I 
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USED  AT: 


AUTHOR:  Kevin  J  Snoap 
PROJECT:  RDM  Project 

NOTES:  1   23456789  10 


DATE:  12/10/97 
REV:     7/25/98 


RECOMMENDED 


PUBLICATION 


CONTEXT: 

CD 

CD 
A1.5  I 


PEF  Maintenance 


NUMBER: 


USED  AT: 


AUTHOR:  Kevin  J  Snoap 
PROJECT:  RDM  Project 


NOTES:  1  2  3  4  5  6  7  8  9  10 


DATE:  12/10/97 
REV:     7/25/98 


RECOMMENDED 


PUBLICATION 


CONTEXT: 

CD 


Selected 
Dictionary 

? 

Find  All 

\ 

Properties? 

1 

r 

Delete 
Property 

2 

I 

Model 
Manager 

: 

I 

Edit 
Property 

^         3 

~~ ^ 

r 

Create  New 
Property 

4 

1 

Dictionary  Input 

1 

Property  Maintenance 


NUMBER: 


56 


AUTHOR:  Kevin  J  Snoap 
PROJECT:  RDM  Project 

NOTES:  123456789  10 


OATE:  12/10/97 
REV:     7/25/98 


RECOMMENDED 


PUBLICATION 


DATE 


CONTEXT: 


Data  Input 


Run  Time  Input 


Dictionary  Input 


Build 
RISC 
Files 


Model 
Manager 


Formatted 
RISC  Input 


Execute 
RDM 


I 

2  i 


RISC  Input 


TITLE: 


Run  Time  Execution 


AUTHOR:  Kevin  J  Snoap 
PROJECT:  RDM  Project 


NOTES:   123456789  10 


DATE:  12/15/97 
REV:     7/25/98 


I  WORKING 


RECOMMENDED 


PUBLICATION 


DATE    CONTEXT: 


RISC  Input 


Quota 

Find 

Option 


Algorithm 


QF,  Prop,  Apt 
J     Optimization 
Option 


OP,  Prop,  PAT, 

J  Apt  Optimization 

Option 


QF,  PAT,  Prop, 
Apt  Optimization 
(Default)  Option 


RISC 
Output 
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AUTHOR:  Kevin  J  Snoap 
PROJECT:  RDM  Project 


NOTES:  123456789  10 


DATE:  12/16/97 
REV:     7/25/98 


RECOMMENDED 


PUBLICATION 


CONTEXT: 

CD 


RISC  Input 


Quota  Find 
Optimization 


Algorithm 


Quota  Find 
Results 


PAT  Line 
Optimization 

2 


PAT  Line 
Results 


Properties    I 
Optimization  - 


;SEEE 


Property 
Results 


Aptitude 
Optimization 


^r 


RISC  Output 


OF,  PAT,  Prop,  Apt  Optimization  (Default)  Option 


NUMBER: 


USED  AT: 


AUTHOR:  Kevin  J  Snoap 
PROJECT:  RDM  Project 


NOTES:  123456789  10 


DATE:  12/11/97 
REV:     7/25/98 


RECOMMENDED 


PUBLICATION 


DATE    CONTEXT: 


RISC  Output 


Input  Processing 
Data 


Retrieve 

Run  Time 

Results 


Model 
Manager 


n 


Formatted 
Results 


Validating 
Results 


Results 


Export 

Run  Time 

Results 


j    Approved 
Assignment 


-T 


3 


Reports 


NODE: 


Output  Processing 
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AUTHOR:  Kevin  J  Snoap 
PROJECT:   RDM  Project 


NOTES:  12  3  4  5  6  7  8  9  10 


DATE:  12/11/97 
REV:     7/25/98 


I  WORKING 


RECOMMENDED 


PUBLICATION 


DATE 


Formatted 
Results 


View 

Assignment 

Results 


Model 
Manager 


Solver 

Assignment 

Results 


Validate 
Y"1   Unassigned 
•       Marines 


Assignment 
ol 

Unassigned 
Mannes 


T 


Validate    |j 
«j    Updated 
History 

3 

-T— 


Lh 


Results 


TITLE: 


Validating  Results 


AUTHOR:  Kevin  J  Snoap 
PROJECT:   RDM  Project 


NOTES:  123456789  10 


DATE:  12/11/97 
REV:     7/25/98 


RECOMMENDED 


PUBLICATION 


DATE    CONTEXT: 


Approved 
Assignments 


Model 
Manager 


Reports 


Export  Run  Time  Results 
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APPENDIX  C.  TO-BE  RD  BUSINESS 
PROCESS  (IDEFO)  MODEL 


USED  AT: 

AUTHOR    Kevin  J  Snoap 

DATE 

SM  7/98 

■ 

WORKING 

READER                 DATE 

CONTEXT 

TOP 

PROJECT    ROOSS 

NOTES:   123456789  10 

REV      8/S/98 

DRAFT 

RECOMMENDED 

PUBLICATION 

BNA  Extract 

MODS 

■ 

Approved  Assignments 

RDdss 

0 

Graphs 

RD1  File 

1 

Reports 

Special  Assignments  & 

Query  Results 

Reclassifications 

1 

r 

AMPLPIus 

RDdss 
Manage 

NODE: 

A-n 

TITLE: 

RDdss 

NUMBER: 

r 
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AUTHOR  K«vm  J  Snoap 
PROJECT    RDDSS 


NOTES:    123456799    10 


DATE:  5/17/98 
REV:     7/25/98 


RECOMMEN0ED 


DATE     CONTEXT 


Import/Export 
Data 


Special  Assignments 


&  Reclassifications 


DSS 

Manager 


f\  Imported 
Data 


Maintain  Data 


1 


Maintained 
Data 


Unacceptable 
Result 


Preprocessing 
&  Execution 


TT" 


Analyze 
Result     k\ 


Acceptable 
Result 


Analyzed 
Result 


Approved  Assignments 


Query  Data  5 

ET 
s  ! 


3" 


Graphs 


Query  Results 


Generate 
Report 


I  Reports 


AO 


RDDSS 


AUTHOR:  Kevin  J  Snoap 
PROJECT:   RDDSS 


NOTES:    123456789   10 


DATE:  S/17/98 
REV:     7/2S/98 


RECOMMENDED 


PUBLICATION 


DATE    CONTEXT 


RD1  File 

7 

Import  RD1  File 

1 

Imported  Data 

I 

BNA  Extract 

t 

Import  BNA  Extract 

2 

\ 

B 

Acceptable  Result 

r 
Export  RD3  File 

3 

5 

Approved 
Assignments 

DSS 
Manager 

1 

I 

A1 


Import/Export  Data 


62 


USED  AT 

AUTHOR:  Kevin 

J  Snoap 

OATH:  S/ 17/96 

■ 

WORKING 

READER                  DATE 

CONTEXT 

PROJECT:   RDDSS                                                              REV:     7/2S/9( 
NOTES:   123456789  10 

ORArr 

AO                           T=D 

RECOMMENDED 

PUBLICATION 

MODS 

Unacceptable 
Result 

School 
Maint. 

i 

1 

Imported 
Data 

-■* 

r 

PEF  Maint. 

2 

j 

p ' 

3 

DSS 
Manager 

-^ 

School  to 
PEF  Maint. 

3 

L 

' 

a i 

r-undamenta 

Property 

Maint. 

4 

l 

1 

* 

— 

►  WVIT*"* 

Logical 
Property 

Maint. 

s 

" 

.. 

i 

'School  to 

Property 

Maint. 

6 

L 

1     Maintained 
p     Data 

™ 

M^-= 

NODE 

TITLE                             Maintain  Data 

NUMBER. 

1 

AUTHOR:  Kavln  J  Snoap 
PROJECT:   RDDSS 


NOTES:    123456789    10 


DATE:  S/17/98 
REV:     7/22/98 


RECOMMENDED 


DATE    CONTEXT: 


MODS 


Special 

Assignments  & 
Reclassifications 


Unacceptable 
Result 


Imported 
Data 


Special 
Assignment 


Maintained 
Data 


DSS 
Manager 


^Reclassification 


Scrub  Marine 
Data 


Required 

Preprocessing 

Data 


Generate 
AMPL  Files 


Preprocessed 
Data 


„       Execute 
^  Solver/Options 


Tl 


AMPLPIus 


A3 


Preprocessing  &  Execution 
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AUTHOR:  Kevin  J  Snoap 
PROJECT:  RO  DSE 


NOTES.    123456789   10 


DATE:  5/17/98 
REV      7/2S/98 


DATE     CONTEXT. 


RECOMMENDED 
PUBLICATION 


Analyze 

Assignment 

Results 


DSS 
Manager 


Analyze 

Unassigned 

Marines 


Analyzed 
Result 


Analyze  School 
Assignments 


Graphs 


Unacceptable 
Result 


Acceptable 
Result 


A4 


Analyze  Result 


AUTHOR:  Kevin  J  Snoap 
PROJECT    RDDSS 


NOTES:   123456789  10 


DATE:  5/17/98 
REV:     7/25/98 


1 


RECOMMENDED 


DATE    CONTEXT: 


Analyzed 
Result 


Query  Marine's     I 
School  Fitness     r 


DSS 
Manager 


Query  School's 
*|   Eligible  Marines 


—  .i,'„ 


Query  School's     j 
•|     Class  Penalty      ij- 


Query 
Results 


A5 


Query  Data 


64 


USED  AT: 

AUTHOR:  Kevin 

J  Snoap 

DATE:  5/17/96 

■ 

WORKING 

READER                 DATE 

CONTEXT: 

AO                            ■■ 

PROJECT.   RDDSS                                                             REV:     7/22/9B 
NOTES:   123456789  10 

DRAFT 

RECOMMENDED 

PUBLICATION 

MODS 

< 

Analyzed 
Result 

r 

Generate  Assigned 
Marine  Report 

i 

\ 

i, 

Generate 

Unassigned  Marine 

Report 

2 

: 

Reports 

Maintained 
Data 

'- '■""• —■" 

j 

'  Generate  Entry 
Level  School 
Report 

3 

s 

DSS 

Manager 

I 

NODE: 

AC 

TITLE:                          Generate  Report 

NUMBER 

I 
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APPENDIX  D.  RDDSS  VBA  CODE 


1  Form  IrrMnafyzeRDSut 

2  Coda 

3  1      \Alt1bulB  VB.Name  -  tortT^tnrAnatonRaaur 

4  2     Alttbuto  VB_CreaIabk»  ■  True 

5  3      A-rit-ow  VB.Prededaracld  *  True 

6  4      Attribute  VB.Ejaxaad  -  f  Hu 


8      Dtm  hBOSctWCMrtgWBl  As  Boolean 


i  En_bt)Ejol_Clclc 

Mbt^o*  En  Daaerlpicn 
Ftoaume  Sju,  RtnFjfl.  Cteli 


128  Resume  Ej4LCorrmandB_Clck 

129 

130  End  Sub 

131 

132 

133Pn\aiB  Sub  Fonn_Deactw»leO 

134 

13S  II  booSchooiAjatonmant  Than 

136 

137  Dim  atSOL  As  Sting 

138  Dvnl  As  tntoger,  i  As  integer 

139  Olmrec  As  Recordset,  reel  As  Recordset.  rec2  As  Recor  daet 

140  Dtmdbl  As  Database 
141 

142  Sol  it-  i  >  CunentDbO 
143 

144  '  C-rooie  a  tabto  t>  gel  the  M  and  ■  wwghta  used  during  he 

145  Apr^catoiSelCptton-Corrfirm  Ac  Ion  aperies'.  FeUe 

146  ■  Delete  the  Wit  if «  steady  artus 

147  OetotoTabto 

149  .titwcus  'CREATE  TABLE  PERCENTAGE  (CoureeNumber  TEXT.  AM05 
TEXT.  Quota  INTEGER  Assured  INTEGER  PwcentaQe  INTEGER):' 

150  Ap(*c»»o«  SaOpOor.  "CorilirTn  Ariw>  fju«r»<rt'    True 


OoCmlCkne 

'  Open  aped  Aed  form 

*Docr*n*  -  -frirfcchootAssr^monb- 
DoCtriiCpanFormaOxfwtome. . .  slinJcCriterte 


;   f  n  DrScnooWsaiywTTBnb.CSfir 

MBgBox  En.Deacrtpton 
i        Reeurm  EjlLbttSc^toolAsa(7VT«na_CtCk 


57 

56  Ctoae  fw  current  iottt, 

58  DoCmlClose 

60  *  Opon  specified  form 

61  ADocNvne  -  "imAjrwjnrnor.tK/vr" 

62  DcC/relCpanPcrm  stfJceName,  .  .  sUnhCnBfia 
63 

■UCMC 


En_bt%Soh«rAs9>OTvn)nB_Cack; 
**tfknf_TT  Descnpton 
Resume  EjiLMvStfwrAsa^inwib^Cadi 


1S3 
1S4 

155  stSOL  -  "SELECT  ■  FROM  QryToWQuotaForRun  ORDER  BY 

156  Set  reel  -obi  CpenRacordBeflstSCk  dbOpanSnapshoO 

157  stSOL  -  -SELECT  *  PROM  gryTotaJQuotaFUedForRun  ORDER  BY 
SCouneNurrt>er_FK.- 

158  S«l  rec2  -  Qbl  OpenRecordseWsJrSOL.  dbOpenSnapshoi) 
ISO  '  Ensure  ttero  are  values  tn  tie  records, 

160  If  reel.  EOF-  Fatae  Then 

161  If  rec2EOF  -  Fabe  Then 

162  reel  MowLasi 

163  recl.MmaFtrsi 

164  rec2M*eL*sl 

165  rec2.MowRrst 

166  Fil  tie  PENALTY  tabto  with  the  quota  values  tor  the 

167  For  I  >  1  To  reel  RacordCouni 


reciCoursaMirrber  -  rec  IISCourseniirnber.FK 
roclAMOS  -  raellAMOS.FK 
red  Quota  -  rec  t'SurrCF Quota 
rec. Update 
reclMMNext 
NeHI 

recMowFlrfl 

-  Update  tie  PENALTY  tabto  with  the  percentage  ol  quolB 
For  I  -  1  To  rec  RecrjrdCounl 
rec2  MoveFlrsI 
For  |  -  i  To  rec2  PtocordCouni 

tl  rectCoursenLrrtjar  -  rec2!SCotrseN^r<oar_FK  Than 
II  reclAMOS  -  rec2'AMOS_FK  Then 
recEcii 


End  II 

rec2  Mover** 
I)  no  much  was  found,  twn  re  percent  lil  I; 
If  |  >  rec2  RacordCouni  Than 


Dim  atrSQL  Aa  Sting 
Dim  rec  As  Recordset 
Dan  dbl  AsD 


Sat  dbl  -  CurranCbO 
II  bi  number  of  unasaigned  n 


i  than  dsatto  the 


sirSOL  -  -SELECT  CounKPEF)  AS  ToBdJhasstgned  FROM 
Sat  rec  -  dbl  CljwriFtocordseltsBSGL  dbOpenSnapshof) 
If  rec'ToaJUnaaJgnad  -  0  Then 

MagBox  ('  Al  Mannas  m 


95  82 

96  93  '  Ctoae  the  currant  form 

97  94  DoCmlCtaae 

9S  95  '  Open  specif  tod  form 

99  96  stOocNama  -  -trrnLhasa^adMartnss* 

100  97  OoOrrJ  (Conform  srDocN&jrv  .  .  sUnkCntans 

101  98 

102  99  End  If 


recCtosa 
reel  Cloee 
recZCtaae 
dbl  Ctoee 


218        212      Ebe 


'  Delate  the  PERCENTAGE  table 
DetotoTabto 
End  II 


223        217EndSub 


1  Attrlbme  VB_Na/ne  -  "Form_lrmAsskyOTBnfftosufr 

2  AnnbutB  VB_Craatobto  -  True 

3  ADnbuta  VB^Pradadaradld  -  Trua 

4  Artrdxr*  VB_.Ejtposed  -  Fabe 

5  Opfton  Corrpara  Oabpaaa 

6  Option  Fjvadt 


1 05  En_brtjhasr»g»dManr«a_Clck. 

106  MagBcn  En  Dasrjnpaon 

107  Resume  E*U>t>UnasaH)edMarines_Clclt 


DoCmd,  Ctoae 

'  Open  specified  form 

stDoctaura  -  -frmHDM  Mam  _Swtu-hOoar<r 

DoCmd  CjpanRjrm  ntDor.NBmt.   . ,  3fUr*Critona 


9  Private  Sub  Fonrn^CumwuO 
10 

11  Dim  sfirSGL  As  Sting 

12  Dim  roc  As  Recordset 

13  Dtmdbl  As  Database 

15  Set  dbl  -  CuneniDb() 
16 

17  ..'-aruhitoi  ff»l>y,   Mraow   «r.1b.fiW»TOi«i  Afcc.    , 


18  stSQL  -  "SELECT  A  wot  Fitness)  AS  Awaraoo  MeodRnass)  As 
Mn(Rttass)  As  Mnmun  Count<Fitnass)  As  TolalAngned  FROM 
qry  Asstgrn-antRasut. ' 

19  Sal  rec  -  dbl  CpanFtocordsaUsoSOL  dbOpanSnaptftoi) 

20  Ma  eaFltwosAwg  -  LnVreclAvaraaja) 

21  'A.  ccf-  .r**r**u  -  reclMBJdman 

22  Me  tdFlneasMn  •>  raclUntrrum 

23  Me.eec^wAsstTvranb-recfTotaiAaaoned 
24 

25         CafcuMxtaorw  nurrtber  ol  manual  aasigrvnanB,  and  nannin 


26  atSQL  -  "SELECT  0>urtt;Aa90T«TBnlTypa)  AS  Tc4a**nualAaav>ad  FROM 

QryManuaaV  AsstgnadMan  nes  * 

27  Set  roc  .  d,  i  OpanRacordaet{arSOL.  tSCpenSnapshot) 

28  Me  MAMuaMssghmBrits  .  racaoM^aruatAsstgned 


67 


Me  tx&atvar  Assignments 
30 

31  '  Calculates  the  number  of  unassgned  mannos  and  ■»  total  number 
of  assignable  marines 

32  strSQL  =  "SELECT  Coun«PEF)  AS  ToWUiassigned  FROM 

33  Set  rec  ^  dbl  CpenRBCordsettsrSOL.  dbCpenSoapshof) 

34  Ma  btfToaiLteassigned  a  reclToteJUnasslgned 

35  Mo  bdTotalAssignable  ■  reclToBJUhasslgned  • 
36 

37  '  Create  a  table  to  get  l*>  fit  and  Id  weights  iced  dunng  the  run 

36  Appfcabon  SetCption  "Confirm  Action  Queries'.  Fase 

39  dbl  Ejocute  "CREATE  TABLE  CONSTANTS  (CcnstantName  TEXT.  intValue 

40  DoCmd  Transfer  Teal  acimporlFi»d,  'Rdm_Data  Fj«»rl  Speciricalan'. 
CONSTANTS.  'C\To6eRom\AmpIData\rdmdar 

41  ApptcaBan  SetOptJon  "Confirm  AcBon  Queries".  True 
42 

43  SB-SOL  ■  "SELECT  intVatoe  FROM  CONSTANTS.' 

44  Setrec  =  db1  CpenRecordsetfstSOL  dbOpenSnapahorj 

45  Me  Mf'ifweighi  -  rectinrValje 
4£  recMoveNetf 

47  rec  MoveNert 

46  Mb  DdROWetght  ■  recllnfVaJue 
49  rec  Cbse 

50 

51  '  Remove  the  created  table 

52  dbl  Ejocute  "DROP  TABLE  CONSTANTS:" 

53  dbl  Close 


76  MeHbtnEquas  Enabled  ■  True 

77 

78  End  II 

79 

60  End  Sub 

81 

82  Private  Sub  Forrn_Curren() 

63 

84  MelcHCalendar  Visible  =  Fatso 

85  rvtelcirtoDays.  Enabled  =  Fase 

86  MelMMCTGradDate  Enabled  ■  False 

87  MeTbtnEquas  Enabled  =  Fase 

88  Ma'HnChangeDate  Enabled  -  Fase 
89 

90  EndSub 

91  Private  Sub  Cbse.ackO 

92  On  Error  GoTo  E/T_Close_C*ck 
93 

94  Dim  stDocName  As  String 

95  Dim  snjnfcCntena  As  String 
96 

97  '  Close  the  current  lorm 

98  DoCmiClose 

99  '  Open  specified  form 

100  sCtocName  -  'Trrrtrrpal'E^wtSvathboarcr 

101  DoCrnd-CpenForm  stDocNamB.  .  .  sfDnkCntena 
102 


56  EndSub 

57  Private  Sub  Ctase.CIck/,) 

SB  OnEnor  GoTo  E/r_Ctose_Cick 


Oose  the  current  form 
DoCmd  Close 
'  Open  specified  form 
stDocName  =  'IrmA/iaryzeRBsuft* 
OoCmd.OpenForm  sfDocrteme 


306  72   Err_Close_Clclc 

X7  73        MsojBcn  En  Descriptor 

308  74        Resume  FjdLOcee.Clck 

309  75 

310  76   EndSub 
311 

312  Farm;  frrriCnangeGradOate 

313  Code 

314  1     Attribute  VB.Name  -  "ForinJrmOiangeGradDab" 

315  2     Attibute  VB_Creabbte  =  True 

316  3    ADIbute  VB.PredecUredtd  =  True 

317  4     Atfribute  VB_Fj?»sed  =  Fabe 

318  5     Option  Compare  Da  Obese 
Op6onEjp*clt 


320 
321 


8  Pn«teSubbtnChangeOate_Clclc() 
9 

10  '  Change  the  specified  graduaton  date  In  r>e  MARINE  (abb 

11  ApplcaBon  SetOptJon  "Confirm  Action  Queries".  Fase 

12  OoCrnd  OpenCuerv  "qryChangeGradDate" 

13  ApptcaSon.  SetOpQon  "Confirm  Action  Queries".  True 

1 5  '  Update  The  drop  down  1st  tor  MCRD  Grad  Date 

16  Me!cmbMCRDGradDate  RowSource  =  'SELECT  DISTINCTROW 
[oryMCTGradDate)  [GradDate]  FROM  [qrvMCTGradDatel.- 

17 

18  '  Force  user  to  refresh  dab  before  performing  another  date  change 

19  MslcrnbOays  Enabled  =  Fase 

20  MB'trfMCTGradDato  Enabled  ■  Fane 

21  MetbtnEquab-Enabted  =  False 


1  l06Efr_Oose.CSck, 

2  107     MsgBcot  Err  Descnpbon 

3  108     Resume  EjfltJ>»e_Clck 

4  109 

5  U0  End  Sub 
6 

7  Form  IrmOass 

8  Code 

9  i     Attribute  VB_Name  =  "Form_rrmCtass' 
0  2     Attribute  VB.Qreabbte  ■  True 

i  3    Attribute  V8_Predeciaredid  =  True 

2  4     Attribute  VB.Ej^ceed  =  Pane 

3  5     Option  Compare  Database 

4  6     Option  Fjptat 


446  18  ErrJ)HFlndSchool_ClcJc 

447  19  MsgBca  Err  DescrtpfJan 

446  20  Resume  Ejdi_bmf  indSchcd  Ckci. 

449  21 

450  22  EndSub 
451 

452  Form  IrmClassCuotaPenaltyAndFlt 

453  Code 

454  1  Attribute  VB_Name  =  "FonrutrrrOissOuotaPenalvAnoTir 

455  2  Aonbute  VB_Creatab)e  =  True 

456  3  Attriouie  VB.Predeclaredtd  =  True 

457  4  Anribute  VB^Eaposed  =  Fase 

458  5  Option  Compare  Database 

459  6  Option  Eapicl! 

460  7 

461  8  Private  Sub  btnGo_Cack() 

462  9 

463  10  Dim  varUDateBound 

464  11  Dim  ktgttaur  As  Long,  IngMn  As  Long.  hgSec  As  Long 

465  12  Dim  IngStarl  As  Long.  hgEnd  As  Long 

466  13  Dim  sfrSQL  As  String 

467  14 

468  15  '  Starts  tw  Imer  tor  dspbying  tie  Dme  token  tor  His  subroutine 


342        28   Pmate  Sub  btnEquab_Clck() 


'  Prevent  (he  user  from  gang  beck  b  change  the  MCTGradDate  unll  a 
ss  diets 
'  made,  or  Vie  reset  butbn  is  pushed 
MalMCTGradDate.  Enabled  =  Fase 
varUDateBound  ■  Ma  UDateBound 


It  israjafvarDate)  =  Fase  And  IsraaVinlDays)  ■  Face  Then 


'  Update  the  quota/penalty  records  on  this  form 

stSQL  =  "SELECT  DISmNfCTROW  |CLASS|  |SGourser\bmber_FK].  *  &  _ 

"(CLASS]  |AMOS_FK).(CLASS|  ICUssNumber.PX),  [CLASS]  !ReportDate|  " 

'ICLASSI  |Cuna].  [CLASS]  ICtasslndex].  [PENALTY]  lOassindttcFK]. ' 

"(PENALTY]  |Penafly|  FROM  ((CLASS1  lr*£R  JON  [PENALTY]  ON "  &  „ 

"ICLASS]  |Ctasslnde*}  =[P£MALTY)  (OasslndesLFKJ):" 

Me  RecordSource  *  suSQl 


364  50  '  Place  the  new  date  in  the  'upper  date  bound"  tad  box  on  the 

365  calngform 

366  51  Ma  MMCTGradOato  ■  varOata 

367  52 

368  S3  '  Aaows  user  to  change  the  graduaton  data  in  the  MARINE  table 

369  54  Mtf  btfiChangeDatB  Enabled  =  True 

370  55        End  If 

371  56 

372  57  EndSub 

373  56 

374  59  PrheteSubcrrbMCRDCyadDatejuierUpdatef) 

375  60 

376  61        Dim  vwDate  As  Variant 


3S1        66        It  IsNuHva/Date)  =  Fabe  Then 


'  Records  rn  slop  Bme  for  running  fris  subroutne 

rnjt  r>1  ■   Timw 

'  Determine  MM  socs 
rqSoc  =  ^g£nd  -  f^Start 
'  Determine  total  hours 
rijttj  «  togSec  \3600 
'  Determine  total  mns 
togMn  ■  (togSoc  -  togHour  '  3600)  \  60 
'  Determine  tfe  sees  rarmmmg 
i-V—  -  (togSec  -  (togMn  '  60)  -  (togHaur  "  3600))  \  1 
MsgBca Thrs operation  took" &  hgtaur  &  '  nour(s).  '&  tngMn&* 
i).  '  *  - 
"and "  &  mgSec  &  "  sees  \  vbOKOnry.  "Recrul  Dsribution  rvtodoT 

Ma  MnPrepa/eAndEwcutoSoMy  SetFocus 


'  Change  calendar  to  this  data 
MetcBCalendar  Value  ■  varDato 
MetcDCalendar  Viatbte  a  True 
MaicmbDays  Enabted  ■  True 
MeiUMCTGradDeto  Enabtod  ■  True 


5t6        61    EndSub 


63  Private  Sub  btnGoJvtouseDownl. Button  As  tntegar.  Shift  As  Integer  X  As 

64  Y  As  Single) 


68 


66        Mo'Satus  .  "Working 

67 

68   EndSub 


i  PiivbB  Sii>  bt>Prapw«AndE»cutoSoK«r_Ock{) 
On  Error  GoTo  Err_btoPreparru\ndEjaxutBScJvar_C»ck 


'  C3oao  (he  current  lorm 

DoCmd  Close 

1  Cpen  specified  form 

slDocName  -  *trrrProparoAndEjBcul6Sort«r' 

DoCmd  OponFarm  sfDocNarnD,  ,     stljnkCriteria 


Err_t»mPTOparoAndEwciitoScA«_Cfcclc 
MagBox  Dr  Description 
Resume  L»1_ bto  Proper  eAndEjW  utoSoker_Cfc  I 


6S4  24 
6SS 

656  Form  trmFuridamBntaJPTOperty 

657  Code 

6SB  1  Attribute  VB.Nama  -  *Fomi_lrTnFirtJarnBnlaIPiop©rty- 

659  2  AOitxtto  VB.CreeJabb  -  Truo 

660  3  Annbuto  VBJ>redoclaredJd  -  True 

661  4  Attribute  VB. Exposed  .  Fabe 

662  S  Opton  Compare  Database 

663  6  Opion  t  Lxpec  it 

664  7 

665  8  Pi.vBte  Sub  Command  tS_Cbck() 

666  9 

667  10        MagBox  Tr»s  rs  a  button'.  vMnlormnbon  -lasting' 


669  12    EndSub 


544        69  EndSut) 


Dim  stDacName  As  String 
Dim  stLinkCntene  As  String 


Close  the  cum 
DoCmd  Close 
'  Cpen  specified  form 

slDocName  ■  'trrnPreprocessing&EjecukonSiMtchboard" 
DoCmdCfwnForm  sfDocName.  .  .  stt-inkOitena 


106  &r_btnHBlumPreMOU»_C*cic 

107  MagBox  Err  Deecnpton 

108  Resume  Ej^btoFaj^nPrevwus.Cick 


567  112  Private  Sub  crrbCwrTeNurntief  FindJ\rtorLbdato<) 

568  113 

569  114      Dim  R  As  Recordset 

570  IIS     Set  R  -  Me  Reca  daetCtone 

571  116      RFindF.rst  "ISCo^sehlumtoer_FK)  -  '  S  Cnr(34)  & 

572  Ma![cmbCotfseh»*rt>erFmd]  &  Chr(34) 

573  117      Me  Bookmark  -  FlBookmark 

574  118      M^|crTtoCoursef<fc#rborFind]  -  Nul 

575  119     Ma  Penalty  SetFocus 

576  120 

577  121  End  Sub 

578  122 

579  123PTrvBteSubForm_Currer>H) 

580  124 

581  125      "  Prevanb  the  user  from  creating  tie  AMPL  libs  until 

582  126       gradualon  date  is  entered 

583  127     II  IsMaVMe  MCTGradDate. Value)  Then 

584  128         MstbTiGc  Enabled  -  Fab© 

585  129  Mel  Stems  Enacted  -  Fab© 


'  Alows  t<o  user  to  create  tie  quote  and  penalty  ta»s 
Ebe 

Me'btoGo  Enabled  -  Tnje 


137     Mel  Status  - 


24  Err_b*>Ooae_ack; 

25  Msgfio>  En ,  Deacrrplon 

26  Resume  E»t_WnClose_Cack 


685        28  EndSub 


688  31    Pmato  Sub  crTtoFftc^xwTyhbmeFind  _A(1erlbdab0 

689  32 

690  33       Own  R  As  Ftocorcteel 

691  34       Set  R  -  Ma  RacontoelCbne 

692  35       RFindFiral  -]FPropertyNarre_PK)  -  *  ft  Chr(34)  & 

693  Mn'lcmbF Proper tvf*meFindl  ft  Chr(34) 

694  36       Ma  Bookmark  -  RBookmark 

695  37        Mel  |  cmbF  Proper  tyNamoFmdl  .  Nul 

696  38        Mo.FPTopertyntome.PK.SelFocu3 

697  39 

698  40  EndSub 

699  41 

700  42  PrrvateSubCorrntendil.Cackt) 

701  43  '  Forces  user  to' enter  data  lor  property  name  and  descnption 

702  44        II  IstaaVMa  FPropertyName.PK. Value)  Cr  lsNu«(Me  Descnpton  Value) 

703  45  MrrlMarirteFieW.  Enabled  -  Fabe 

704  46  MelOperator  Enabled -  False 

705  47  Me'Ubeiiu  v.sibte- Fabe 

706  48  Mafsubrrrr^ur^damentaPraperty  V<*bto  -  Fabe 

707  49  Ma4sub(rrr^undamentat^apertyLjat.Viaibb-Fabo 

708  50  M^cnfePotontarVaJue  Visible  -  Fabe 

709  51  MagBox  "You  must  provide  a  Property  Name  and  Description' 

710  before  Puking  tie  fundamental  ©qua ton* 


S3 


Afawsfheu 


•  values  for  fne  fundamental  equalon 


MelMarirwFieM  Enabbd  -  Tnje 

Mo'Operator  Enabbd  -  True 

Maf  labeJI  0  V.sibb  •  True 

If  FonrBJIrrT^irxlamentaJProperty  Operator  Value-  "in" 
Mr^subtrmFunrJamerUaProperty  Visible  -  Fabe 
Mrj>suWrrrF undamentaPropertyLiStVisrjIe  *  Tnje 

EfcM 

Me^cmbPoasnbaNalue.Vbible  -  True 
MalsuWrrrf  uraiamenlaProperty  Visible  -  True 
MdsubfrrrfiaidarTentaPrapertyList Visible-  Fabe 


141  Prrvate  Sub  MCTG*  adDatoJUter  Update* } 

142 

143     Dim  varDate  As  Variant 


145      varDate  -  Me  MCTGVadCteto 


147     If  Isnuyva/Date)  m  Fabe  Then 


w  date  m  (he  'upper  date  bound"  text  box  on  the 


Me  UCateBcund  -  varDate 


MolbtoGo  Enabled  .  Fabe 
MelStUua  Enabbd  -  Fabe 
End  II 


626        169  End  Sub 


Code 

1  Attibute  VB.Name  -  "FormJrmFind" 

2  Attibute  VB.Crrjatabb  >  True 

3  Avibuto  VB.PredeclarerJd  -  True 

4  Abtibute  V8_Expceed  >  Fabe 

5  Option  Compare  Database 

6  Opaon  Expfcif 


Screen  PreviousControl  Self-ecus 

Formslf  rmSchootToPt  opertyMainl  Set?  ecus 

OoCmrf  F  indftocorii  Ms  crnbCcursanlumber.    True.  .  True.  acAl 

T)cCmd.DoMer«jltemacFonTear.  acEdifManu.  10.  .  acManuVer70 


71  F^TvateSubDeacrvion>HarlJbdate<) 

72 

73  Dan  1 1  SQL  As  Stixig 

74 

75  '  Forces  user  to  enter  data  for  property  name  and  desenpaon 

76  lllsNuVMaFPrc«)ertyName_PKVakje)Or  IsNtJfMa.Deacnpion  Value) 

77  MalMarmeFiefd  Enabled  -  Fabe 

78  MelOperator  Enabled  -  Fabe 

79  MatLaboMO  Visbb  -  Fabe 

B0  Malsubfrrrf  uTKbmentaA^cx^eny  Vtsbte  -  Fabe 

81  Mo'subtrrT^undarTwrtfal^opertyUstVisibte  -  False 
82 

83  '  AJdms  the  user  to  enter  values  lor  (he  fundamental  equation 

84  Ebe 

85  MolMarmeFiekl  Enabbd  .  True 

86  fvVOperator, Enabled*  True 

87  Mo'LabeilOVisbb-  True 

88  If  FortmltmTFundarrx«i»JProporty  Operator  Value  -  *m*  Then 

89  sfrSQL  -  'SELECT  DISTINCT '  &  (VblManneFieid  &  '  FROM 
90 

Fom^trrrfurxlantenaPropertyisubfrTrfundamOT  FKRovtSo 

urce  -  StrSOL 

91  MrtsubrrrrfurxlarTeritaProperty  Vwbie-  Fabe 

92  Melsubfrn+undarnentaPropertybsL  Visible  -  True 


FormsJtmfundartxjriteRoperty'subtrTT^unOavnrxnbkPra 
rce-stSCL 

97  fvWsubmrf  unoamr*Ttal*Cperty  Vrsibxe  -  True 

98  Mrysurx^rnFundamental^CpertyLrst  Visible  -  Fabe 

99  End  If 

100  End  If 
101 

102  End  Sub 

toa 

104  Private  Sub  Form_BeloreLbdate< Cancel  As  Integer) 

105 

106      [FuridPTOpTimeStemp)  -  Now 

107 

108  End  Sub 

109 

l  lOPrrvate  Sub  Forrrt, Current() 

112      &m  slrSQL  As  Sting 

113 

1 14       stSOL  -  "SELECT  Mwtiefield.  Operator  FROM  FUhtAMErJTAL_PROPERTY 

WHERE  FPrcperryNamo^PK  .  '  ft  FundPropName 


69 


*  forces  user  to  enter  data  tor  property  name  and  description 
II  lsM*Mo  FPrcprjrtyName_PK  Valje)  Or  lst*J(Me  Descr l peon  Value) 
MB'KAanneFteU  Enabled  =  False 
Me'Operator  Enabled  =  False 
MelLabenO  Visible  ■  Fate 
Metsubfrrnf  ujidamentaiT^oporty  Visit*  =  Fabe 
Mo'suWrmf  urxJarTBr^PToperryUst  Visible  =  Fabe 


'  Alows  fwu 


r  to  enter  values  lor  toe  lijndamonQl  equanor 


rvto'rvfennoF.eH  Enabled  =  True 

MelOporalrjr  Enabled  ■  True 

MaiLabeiiu  Vesibte  =  Trus 

II  FarrrsllrrnFundanvnblProperty  Operator  Value  b  *m"  Then 

1  Update  ihe  PotenOaJ  Value  1st 

Ms'subrrmFundamenbProperTy  Visible  =  Fabe 

Mel  subfrmFundamenaPioperlvUsL  Visible  =  True 

SfrSQL  =  'SELECT  OISTINCT  '  &  Me'Ma/inef-ioW  &  '  FROM 

FormsllrmFundanirjnra'Pfopertytsub'rTnF 
urce  =  SB-SQL 
Bn 

■  Update  the  Potential  Value  Is! 

StrSQL  =  "SELECT  DISTINCT  *  &  MB'ManneFieM  4  '  FROM 

ForrrBllrmFundarnantal  Property  lsiAmiFunclamentalPTaperrylcrnbVaiJe_FK.FkMSou 
=  s»SQL 

MsfajbtrmFundamantaPropeny  Visible  ■  True 
MelsubftmFuTKJanTen&PropertvUst  Visible  =  False 


Set  locus  to  tie  property  name  The  prevents  problem 
associated  wilh  entering  (he  'Operator*  obtecl 
FProperty  r*me_PK  SelFocus 


52PnvateSubFpTapertyNarne  PKJVIterUpdato() 

S3 

54      Dim  strSQL  As  String 

55 

56  '  Forces  user  to  enter  data  lor  property  name  and  description 

57  II  i-waub  FPropertyName.PK  Value)  Or  isMilfMe  DescrlpOon.Value) 

58  MBlManneFleti  Enabled  =  Fatse 

59  Me>Operator  Enabled  =  False 

60  MelLaboiiO  Visible  =  Fahe 

61  MelsuWrrrf  urxlamentarpToperty  Visible  =  Fabe 

62  Me'subfrrrfundanvjriiaJPrcperlybst  Visit*  =  False 
63 

64  '  Alows  tne  user  to  enter  xeJues  lor  he  fundamental  equation 

65  Else 

66  MelMartneFleU  Enabled  =  True 

67  MelOperalor  Enabled  ■  True 

68  MetLabetlO  Visible  >  True 

69  II  FormsllrmFundamentBlPrcperty  Operator  Value  =  "In"  Then 

70  strSQL  =  'SELECT  DISTINCT '  &  MelMarinefield  &  '  FFCM 
71 

Forms|lr7T^undamontalPTOper>v|s*-l>(r'T1*  '  JTito  men  la]  Proper  tyUsTJVak  »   FK.  tCwSo 

urce  =  strSQL 

Fvtelsubfm^urrtarTOTteProperty  Visible  =  False 
r^subrrrnFundarrnntaProper-yLtsL  Visible  =  True 


76 
77 

Formsilm/uriaVmwntaJPropwVsuWriT^  FKRowSou 

ce  =  strSQL 

78  Me'subirmf  undamenfe  Property  Visible  ■  True 

79  r^lsubtrrnFurvlamenlaPropertyUsL  Visible  ■  False 

80  End  II 

81  End  II 
82 

83  End  Sub 

84 

85  Private  Sub  h1arir«F)ek'_ArtorUpdate<) 


87     Dim  strSQL  As  String 


96  Private  Sub  Operator _ Alter UpdateO 
97 

II  ForTrellrTrfurxJa-nontalProporty  Operator  Value  =  "In" 
Melsubfrn^undarnenCalProperfy  Visible  =  Fabe 

200  MelsuWrmF  un&imenteJPraperryUstVrstbte  ■  True 

201  Ebe 

202  r*suttrrrfur«3amnntarProperty  Vlslbte  =  True 

203  Me'suUrrrf  undantentalPropertyUsLVislbte  ■  Fabe 

204  End  II 
205 

206  End  Sub 

207  Private  Sub  brniJeteto.  Ckk( ) 
208Qn  Error  GoTo  Err.b*iD«*ete_Cick 


894  217En_btoDeleie_ack: 

895  218     MsgBoa  Err  DescnpDon 

886  219     Fkrsume  E*LbtoD«*9»_Clck 

897  220 

896  221  End  Sub 

899  222  Private  Sub  Corrrnand14_ack0 

900  223  On  Error  Go  To  Ef '_  Command  14_Ctck 

901  224 

902  225      Dim  stDiaStr  As  Siring 

903  226      Dim  PrevCfl  As  Corral 

904  227      Const  ERR_08JNOTEXIST  =  2467 

905  22B      ConrtERFLOBJNOTSET=91 

906  229 

907  230     Set  PrevCfl  =  Screen  PrrMausControJ 


234  Ebell  Typea  PrevCfl  Is  LisfBo*  Then 

235  sOaBtf  =  IH(VarType{  PrevCfl)  >  V_NULL  PrevCfl  "J 

236  Etsell  TypeOt  PrevCfl  la  ComboBax  Then 
sOaSB  =  I ll(VarType( PrevCfl)  >  V_NULL  PrevCfl.  -) 


915        238     Ebe 


242     Apptcaton  Pun  'unity  wtbJWtoDiaT.  stDtaEt 


924  247En_CtoTfTiandl4_Clclc 

925  248     II  (Err  =  ERFLCBJNOTEXIST)  a  (Err  =  ERFLCeUNOTSET)  Then 

926  249        Resume  nterf 

927  250     End  II 

928  251      MsgEJca  Err  Desenpoon 

929  252     Resume  EjOLCommand14  Clck 

930  2S3 

901  2S4EndSub 

932  255 

933  256  Private  Sub  Operator _Entsr() 

934  2S7 

935  258      ll  fVto  Operator  Vatee  =  "in"  Tnen 

936  259         MsgBox  The  in'  operator  is  not  changeable  It  rs  removed  by 

937  detelng  the  property  ".  vbtnlormaBon,  'Unauthonzed  Aclon' 

938  260  suUrrrFurvJarTtentaJProper-yLlsLSelFccus 

939  261      End  II 

940  262 

941  263EndSub 
942 

943  Form  IrmGenerateReport 

944  Code 

945  t      Aflrlbute  VB_Name  ■  'Form.  IrmGenar abftopor r 

946  2     Attribute  VB.Creatable  =  True 
S47  3     Attribute  VB  Predec  larodio  ■  True 

948  4     Attribute  VB.Ej-poeed  =  Fabo 

949  5     OpOon  Compare  Database 
OpoonEjpial 


951 
952 


Private  Sub  WrViasio/¥TientPteport_Clck() 

DoCrnd  CpanFteport  "rptassignedMannes'.  acVievrPreview 


956        12   End  Sub 


14    Private  Sub  brnEntrvLova&ihocJ  ClickO 

1S 

16        DoCmd  Cpenfloport  Vp&ntrvl*voiScr»or.  acvlewPrevievr 


963        19   End  Sub 


»  Err_t*iE)rH_Clck. 

31  MsgBm  Crr  Description 

32  Ftesume  Ea|.  Mnf  jat_C»ck 


979        35   End  Sub 


37   Private  Sub  btnUnassiorvjcrMai-inefleport^CkcM) 

38 

39        DoCnvj  Openfteport  "rp-UrtassignedMarines*  acViewrPreuew 


*  Close  "rie  current  (arm 

DoCrMCtase 

'  Open  specified  larm 

StDocName  >  -trrnfiDM_Miin_SwiicriEoArd- 

DoCrTdCtoenFofmsfDocNarne.  .  .  stUnlcCrlteria 


57 

58  F^_CornmandB_Cltlc 

59  MsrjBoxErT.Descrlpbon 

60  Ftesume  EjdtCa-nmanctS.CSck 
61 

62  EndSub 


1000 
1001 
1002 
1003 
1004 
I00S 
1006 
1007 

1008  Form  IrmlrTpcrVEjrrjoreirrfKbboard 

1009  Code 

1010  1      Attribute  VB.Name  =  "Fc*m_trrWrTTprjrVEjrj»re«tribc«tfcr 

101 1  2     Attribute  VB.Oeatebto  =  True 

1012  3     Attribute  V&_Predeclaredld  =  Trus 

1013  4     Aftibute  V8_Ej-posad  =  Fabe 

1014  5     Cplon  Compare  Database 

1015  6     Opton  Ejrpecil 

1016  7 
1017 
1018 
1019 
1020 
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1036 


17  Err.b»iEjdL.Clck. 

18  rv*arj£ox  En  Daacnpoon 

19  Ptesume  E-JLbtnf-*LCick 


24  Private  Sub  brn£j5x>rtRDJ_C»ck() 
25 

26  ApptcaflcnSelCplon'ConlirmAclwCljenos'.  Fabo 

27  DoCmriSerWarnlngs  (Fabe) 
2B  '  t -par  R  assignments  to  RD3  M  file 

29  Ej-9dr1RD3 

30  '  A/chivas  data  From  tie  Marine  and  assjcnmoni  tabtas  ruwng  report 
dates  tos-.  Than  the  current  date 


70 


1041 
1042 
1043 
1044 
104S 
1046 
1047 
1046 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1056 
1059 
1060 
1061 
1062 
1063 
1064 
1065 


1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1060 


1083 
1084 
1085 
1066 
1067 


ArchrveData 

ApplcaBon  SetOplon  'Confirm  Action  (Series*.  True 

DoCmd  SeW  aminos  (True) 


38  Prrvate  Sub  Command^ Cfc*0 
39 

40  Dim  sIDocName  As  Sting 

41  Dim  stUnkCrttorta  As  String 
42 

43  ApplcaDon  SetOplon  'Confirm  Action  Ouer  ies~  false 

44  DoCmdSenVarnjngs  (False) 

45  '  Imports  the  RDl  Tito 

46  ImportRDi 

47  Apptcatkxi  SetOplon  'Confirm  AcDon  Queries".  True 

48  OoCmd  SelWarnmgs  (True) 
49 

50  '  QOM  the  cunenl  form 

51  DoCmdCbse 

52  '  Open  specified  form 

53  stDocName  a  MrrnChangeGradOatB' 

54  DoCmd  OpenForm  stDocName.  .  ,  stLlnkCrlterla 
SS 

56  End  Sut> 

57 

SB  Prrvate  Sub  Ccmmand4_ack() 

59 

60  '  Imports  Ei  HA  M  file 

61  ApplcaDoa SetOplon  'Confirm  Action  Queries".  False 

62  DoCmd. SeWarnings  (False) 

63  DoCmd  RunSQL  'DELETE  '  FROM  BNA^EXTRACT,' 

64  ImportfiNA 

65  ApplcaBon  SetOplon  'Confirm  Acbon  Queries*.  True 

66  DoCmd  SerWarrtngs  (True) 


70   Private  Sub  Command8_Clck() 


72  On  Error  GoToErt_Command8_CHck 


'  Close  the  currenl  form 

DoCmd.  Cbse 

'  Open  specified  form 

stDccName  =  'lrmftDM_Main_SwllchOoaf  (T 

DoCrnd.OpenForm  stDocName.  .  .  stLlnkCritena 


1033 

83 

Ex^CornmandB.Ctck. 

1094 

84 

Exit  Sub 

10G6 

85 

1096 

86 

Fjr_CorriTBnd8_Clclc 

1007 

87 

MsgBox  Err  Description 

1096 

86 

Ftesume  ExLCorrrnandS_Clck 

1099 

89 

1100 

90 

End  Sub 

1101 

1102 

Form  frmLogicaProperty 

1103 

Code 

new 

i 

Attribute  VB_Name  =  "ForrrUrmLogicalProperty* 

1105 

2 

Attribute  VB.CreatabJe  =  True 

1106 

3 

Attribute  VB.Predeclaredld  =  True 

1107 

4 

Attribute  VB_Exposed  >  False 

1106 

5 

Option  Comparo  Database 

1109 

6 

Option  Exploit 

1110 

7 

1111 

8 

Prrvate  Sub  WnOose._CHckj ) 

1112 

9 

On  Error  Goto  Err_ptnCtose_ack 

1113 

10 

Err.btnCtose.CIck: 
UsgBox  Err  Description 
Ftesume  ExlLbtnC1ose_CIck 


24    Prrvalo  Sub  cmbFundProp_Click() 


■        '  Adds  the  selected  fundamental  property  to  "no  logical  equation 
'        Me  LogicaTEqualon  Value  =  Me  LogicaJEquaBon  Value  & 
e  cmbFundProp  Value  & " " 


32  '  Adds  the  selected  logical  operator  to  he  logical  equalon 

33  Ms  LogicarEqualon  Value  =  Me  LogtcatEouaBon  Value  & 
Me  c/nbUgOper  Vafc*  &  * " 


1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
11B2 

ne? 

1184 
116S 
1186 

1187 
11B8 
1189 
1190 
1191 
1192 
1193 
1194 
1195 


1202 
1203 
1204 
1205 
1206 
1207 
1203 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1216 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
122B 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236 
1237 
1238 
1239 
1240 
1241 
1242 
1243 
1244 
1245 
1246 
1247 
1246 
1249 
1250 
12S1 
1252 
12S3 
1254 
1255 
1256 
1257 
1256 
1259 
1260 
1261 
1262 
1263 
1264 
1265 
1266 
1267 
1268 


1  Loop  unoi  no  more  spaces  are  found  InSIr  reirrns  0  if  (he 
i  no)  found 
Do  Ltnll  tntSpacePos  a  0 

redlmenuon  "he  array,  adding  another  otoment 
UBound  bfc  us  how  marry  elements  there  afroady  are  in  "he 
ReOim  Preserve  strTernpfUBoundfstrTernp)  *  1) 


83  now  we've  copied  these  characters  into  the  name,  they  ca 

64  '  removed  from  he  original  string    FtghS  returns  a  number 

85  '  characters  from  he  end  of  the  string    It  Is  the  rightmost 

86  '  characters,  therefore  we  subtract  the  position  of  the  spaa 

87  '  he  length  of  he  siring    This  gives  us  the  number  ot 
characters  remaning 

88  strlnName  =  LTrlm$(ngh[S(strlnName.  UrV,  strlnName)  - 
89 

90  '  llnd  he  ne*  space 

91  intSpacePos  =  lnStr(strlnNime.  '  *)  Or  IntSpacePos  = 
lnStr( strlnName.  f)  "Or  IntSpacePos  =  lnStr( strlnName.  *)*) 


95  '  Ftemove  the  last  element  of  he  array,  unless  there  is  only  one 
element  left 

96  If  UBound(strTerrp)  >  i  Then 

97  FteOtm  Preserve  strTemp(U8ound(strTemp)  -  I) 
96 

99  '  Loop  through  he  elements  ol  the  array  and  ptace  hem  back 
info  he  toglcal  equalon  expression 

100  For  I  =  1  To  (U6ound<s6Ternp)) 

101  strundo  =  strUndo  &  strTemp(l)  &  '  * 

102  Me  LooJcaCEouaBon  Value  =  ssLmdo 

103  Next  I 

104  EJse 

105  '  Set  he  bo.it  a  equalon  equal  to  'NuT 

106  Ma  LogtcafEquatlon.  Value  =  '( ' 

107  End  It 


114  Prrvate  Sub  Ccmmandll  CSckf) 
115 

1 16  '  Forces  user  to  enter  data  lor  property  name  and  descrtplon 

117  11  lsNkJ(MeLProperiyName_PK Value)  Or  IsN>uI<Mb.  Description  Value) 

118  Mel  Commands  Enabled  =  False 

119  MelCommarxS  Enabled  =  False 

120  MB^CorrmandlO.  Enabled  =  FaJse 

121  MeicmbFundProp  Enabled  =  False 

122  Meicn«LogOper  Enabled  =  False 

123  MefLogicaEquaBon  Enabled  =  False 

124  MsgBox  "You  must  provide  a  'Properly  Name'  and  'Descrlplon' 
before  bulkUng  the  toglcal  equation " 

125 

126  '  Enters  a  *( "  be  he  first  entry  m  he  logical  equalon  it  It  is 

127  Else!)  IsNulfMBlLogicalEquaBon  Vabe)  Then 
126  MefCornmanoB  Enabled  =  True 

129  MefComnanoB  Enabled  =  True 

130  Mel  Corrrnand  10.  Enabled  =  True 

131  MalcmbfundProp  Enabled  =  True 

132  MelcrnbLogOper  Enabled  ■  True 

133  Me!  Lr^caEquatton.  Enabled  =  True 

134  Mel  LogicaJEquaBon  Value  =  *(* 


■  Alowstheu 


s  into  the  logical  equaflor 


Mb"  CorrrnandB- Enabted  »  True 
Me'CommandS  Enabled  =  True 
MB'CommandlO.Enabted  =  True 
MetcmbF  undProp  Enabled  =  True 
MrycmbLogOper  Enabted  -  True 
Me1  LogjcaEquaBon  Enabled  =  True 
End  If 


148  Private  Sub  CornmandB_ack() 


11577 
1158 
1159 


1164 
1165 
1166 


37  Prrvate  Sub  cnXLProperlyNarmnndJWter  Update*; ) 
38 

39  Dim  R  As  Recordset 

40  Set  R  =  Me  RecordsetCtone 

41  RFtndFirst  ILProperlyteme^PK]  =  '  &  Chr(34)  & 
Mo<|crThU>roperVNarn&Find]  &  Chr(34) 

42  Me  Bookmark  =  RBookmark 

43  Mei|crrbLFyopertyNamefrnd1  =  Nul 

44  Me  Li'Totmr^ Name_PK  Setf  ecus 
45 

46  EndSub 

47 

48  Prrvate  Sub  Carnmand10_Clck() 


th.lL 


I  entry  In  he  logical  equaflon 


Dim  stlnName.  s&Undo  As  String        '  input  name 

Dim  IntSpacePos  As  Integer       '  position  of  he  space 

Dim  I  As  Integer       '  bop  index 

DimbooResuK  As  Boolean 

Dim  IngConverslon        As  Long 

DimvarCorrv  As  Variant 


1272 
1273 
1274 
127S 
1276 
1277 
127B 
1279 
1260 
1261 
1282 
1263 
1284 
1285 
1286 
1287 
1288 


1293 
1294 
1295 
1296 
1297 
1296 
1299 
1300 


159  End  Sub 

160  Prrvate  Sub  btnD*»b_C*ck<  ) 

161  On  Error  GoTo  Efr_btnDeie"e_Clek 


0  En_btnDetete_Clclc 

1  MsgBox  Err  Description 

2  Ftesume  Ejot_t>mDelete_.C*ck 


'  Forces  user  to  enter  data  tor  property  name  and  desenpton 

If  isNuKMe  LP>opertyNarne_PK.VaJue)  Or  IsNu1(Mb  DescrlpDcn  Vabe) 

MetCornmande  Enabted  =  False 

MetCorrrnancB  Enabted  =  Fatse 

MetCommand  10.  Enabled  =  False 

MefcrnbfundProp  Enabted  •  Fatse 

MBlcnfcLogOpar.  Enabted  =  Fatse 

MBlU)gKaEquaBon.Enabted  =  False 

'  Enters  a  *( "  be  ha  first  entry  in  he  logical  equalon  if  tt  is 
Etsell  Is^Me'LogicaCouaBon  Value)  Then 


71 


1302 
1303 
1304 
1305 
1306 
1307 
1306 
1309 
1310 


1314 
131S 
1316 
1317 
1316 
1319 
1320 


1333 
1334 
1335 


1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 


1373 
1374 
1375 


196 


RM  Commands.  Enabled  •  True 
MelCommandS  Enabled  *  True 
Me'CommandiO  Enabled  -  True 
Me'cmbFundProp  Enabled  -  True 
MetcmbLogOper. Enabled-  True 
Me' Lcg^alEcruafion.  Enabled-  True 
Me!  LogicaJEquanon. Value-  *(  ' 


196  '  Allows  the  user  to  enter  values  into  the  logical  equanon 

197  Ebe 

196  Me'CommandeEnabted  -  True 

199  fvtolCommandS  Enabled  -  True 

200  MetCommondlO  Enabled-  True 

201  MofcmbPundProp  Enabled -Tnje 

202  Me!crrt>LogCper.Enabled-True 

203  MelUgicelEquaftori  Enabled  -  True 

204  End  If 
205 

206  End  Sub 

207 

206  Pn vn»  Sub  Form,Be»ofeUpda»( Cancel  As  integer  i 

209 

210  [logPropTimeStBirp]  ■  Now 


214  Private  Sub  Form  Current*,) 
215 

216  '  Forces  user  to  enter  dab  for  property  name  and  description 

217  If  IsNuIfMe  LPropenVName_PK.Vabe)  Or  IsNuKMe  Descnpoon  Value) 

218  Me!  Commands.  Enabled  -  False 

219  Me! Commands.  Enabled  -  False 

220  Me!Comrnand10.Enabled-  False 

221  Me!crtt>FundProp  Enabled  -  False 

222  Me'crrblijgOper  EnaUed  -  False 

223  Me!  LogtcaiEquat on.  Enabled  -  False 
224 

225  '  Enters  a  *(  '  be  the  first  envy  in  the  logical  equation  d  it  is 

226  Elself  IsNulfMe'LogicaiEquaboa Value)  Then 

227  Me! LogrcalEquatioa Value  -  '(  ' 
228 


(he  logical  equaeon 


229  '  ASows  fhe  user  to  enter  values  ml 

230  Else 

231  Mel  Commands. Enabtod  -  True 

232  Me!Commnnd9  Enabled -True 

233  MelCommandlO  Enabled-  True 

234  MelcmbFundProp  Enabled  -  True 

235  Ma!cmbU>gCpar  Enabled  -  True 

236  Me'LocscalEquooon  Enabled-  True 

237  End  If 
238 


241 

242  '  Prevents  the  user  from  meriting  the  bgical  equation  drecoV 

243  MsgSox  The  logical  equation  ts  onry  modifiable  by  (he  above  logical 
equation  builder' 

244  DoCmd  GoToControl  •LPropenvName.PrT 
245 

246  End  Sub 

247 

248  Private  Sub  L fr ope ny Name _PK    Wter Update! ) 

249 

250  '  Forces  user  to  enter  data  for  propeny  name  and  descnpoon 

251  If  isUuVMe  LProperT/Narrw   PK.  Vokje)  O  IsNu^Mo.Descnpton  Value) 

252  MetComrnandS  Enabled  -  False 

253  Ma!  Commands.  Enabled  -  False 

254  MelCommandlO  Enabled  -False 

255  MelcmbFundProp  Enabled  -  False 

256  Melcr*LogOper. Enabled-  False 
Me1  Logical  Equation.  Enabled  -  False 


257 
258 

259  '  Enters  a  *( "  be  *»  first  entry  m  tie  logical  equabon  if 

260  Etsell  IsMiKMe'LogicaiEquatJor,  Value j  Then 

261  MeiCommandB  Enabled  -  True 

262  Me'CommandS  Enabled  -  True 

263  MelCommandlO  EnaUad- True 

264  MelcmbFundProp  Enabled  -  True 

265  Me'cmblogCper  Enabled  -  True 

266  Me1  LorjcaJEquafton.  Enabled  -  True 
Me'LogjcaEquatoaVakja  - '( ' 


268 


1383 

269 

'  AJows  me  user  to  enter  values  into  the 

1384 

270 

Else 

1385 

271 

Me!  Commands.  Enabled  -  True 

1386 

272 

Ma< Commands.  Enabled  -  True 

1387 

273 

Me1  Command  10  Enabled-  True 

1388 

274 

Me'cmbFundProp  Enabled  -  True 

1389 

275 

Me'cmbLogCper  Enabled  -  True 

1390 

276 

Me'LogicalEquaBon  Enabled-  True 

1391 

277 

End  If 

1392 

278 

1393 

279  End  Sub 

the  logical  equation 


Form:  IrrnMaintenanceSwitchboard 
Code 

1  Aanbuts  VB.Name  -  'ForTrUrmMantovBrveeSwt^boeid" 

2  Aftnbute  VB.Creatable  -  True 

3  Attribute  V6_Predeclafedld  -  True 

4  Attribute  VB_  Exposed  •  False 

5  Option  Compare  Database 


1402 

6 

Opoon  Expecit 

1403 

7 

1404 

8 

Prrvata  Sub  boiEjtrLCsckf,) 

140S 

9 

On  Error  GoTo  EnJ#iEjot_CI 

1406 

10 

1407 

11 

1408 

12 

DoCmd  Ctosa 

1409 

13 

1410 

14 

EjoLbtnE»t_C*ck: 

1411 

15 

Eat  Sub 

1412 

16 

1413 

17 

Err_bfnEjoLCiClc 

1414 

18 

MsgBox  Err.Deacnpoon 

1415 

19 

Resume  F_ot..br Eat_Ceck 

1416 

20 

1417 

21 

1418 

22 

End  Sub 

1423 
1424 
1425 
1426 

1427 


Private  Sub  CommandO.CSck/,) 

On  Error  GoTo  Er_CommandO_Cicl< 

Dim  stDocName  As  Stnng 
Dim  ttljnkCnlana  As  Stnng 

'  Close  the  current  form 
DoCmd  Ctoae 
Open  specified  form 
sOocNama  -  7nriSchooIToPEF_MairTr 
DoCmd.  Ctoen  Form  stDocName.  .  .  sOjnkCntene 


1431 

35 

1432 

36 

E*LCorrrnandD_Csck. 

1433 

37 

ExtSub 

1434 

38 

1435 

39 

Err_Corm»andO_Coclc 

1436 

40 

MsgBox  Err  Descnpoon 

1437 

41 

Resume  Ejot_CommandO_Clck 

1438 

42 

1439 

43 

End  Sub 

Dim  stDocName  As  Stnng 
Dim  stLmfcCnktna  As  String 


1446 

SO 

1447 

51 

'  Close  the  current  form 

1448 

52 

DoCmd.  Close 

1449 

S3 

'  Open  speafied  form 

1450 

54 

stDocName-  'frmSehooa* 

1451 

SS 

DoCmdOpenForm  stDocName,  .  .  stLinkCntene 

1452 

S6 

1453 

57 

EaLCommandl  2_C*ek. 

1454 

58 

Ext  Sub 

1455 

59 

1456 

60 

E  rr_ConTnandl2_Cicfc 

1457 

61 

MsgBox  Err.Deacnpoon 

1456 

62 

Resume  ExLCornmandl2_Cicl< 

1459 

63 

1460 

64 

End  Sub 

Dim  stDocName  As  Stnng 

Dim  KLr* Criteria  As  Stnng 


1468 

72 

Close  the  current  form 

1469 

73 

DoCmd.  Close 

1470 

74 

'  Open  specified  form 

1471 

75 

stDocName  -  'frmPEP 

1472 

76 

DoCmd.  Open  Form  stDocName.  .  ,  sfljnkCnktna 

1473 

77 

1474 

78 

EaLCorrmandU  CScfc 

1475 

79 

Bit  Sub 

1476 

80 

1477 

61 

E  rT_Corrmand  1 4_Cldc 

1478 

62 

MsgBoi  Err  Descnpoon 

1479 

83 

Resume  ExLCommandl4_CSck 

1480 

64 

Pnvate  Sub  Cormand2_CickO 

On  Error  GoTo  Err_Command2_Cick 

Dim  stDocName  As  Stnng 
Dim  stLinkCnlana  As  Stnng 

'  Close  the  current  form 

DoCmd  Close 

'  Open  specified  form 

stDocName  -  'frmftjndamentalProperty' 

DoCmd  OpenForm  stDocName. .  ,  atLmkCntena 


102  En_Ccmmand2J3ck; 

103  MsgBox  En  Descnpoon 

104  Resume  ExLCornmand2_Clck 


Dim  stDocName  As  Stnng 
Dim  stLinkChtane  As  Stnng 


1510 

114         Close  the  current  lonr. 

1511 

115      DoCmctClose 

1512 

1 16      '  Open  speoried  form 

1513 

117      soDocNeme-  "rrmLocjcafProperTy* 

1514 

118      DoCmdCpenFormstOocName, .  .  sIDnkCntona 

ISIS 

119 

1516 

1 20  fjg  LCormwnd4_Cick; 

1517 

121      Ext  Sub 

1518 

122 

1519 

123  E  rr_Connv*nrM_ack; 

1S20 

124     MsgBox  Err  Descnpson 

1521 

125      Resume  EjnLCommand4_ack 

1522 

126 

1523 

127  End  Sub 

1S24 

128 

1S2S 

129  Private  Sub  CcmrT*nd6_CSck() 

1526 

1300n  Error  GoTo  Err_Command6_Cick 

1527 

131 

1528 

132      Dim  stDocName  As  Stnng 

1S29 

133      Dim  srjjvCntona  As  Stnng 

1530 

134 

1531 

13S     '  Close  la  currant  form 

1532 

136      DoCmdCtose 

1533 

137      '  Open  speafied  form 

1S34 

130     stDocName  •  'tirnSchorjrToPropertyMainr 

1S3S 

139     DoCmd  OpenForm  StDocName. .  .  sOjnkCntena 

1S36 

140 

1S37 

141  ExLCommanoS.Cack: 

1538 

142      Eat  Sub 

1S39 

143 

1540 

144  Err_C^xrinand6_ack: 

1S41 

145     MsgBox  Err  Descnpoon 

ISC 

146      Resume  L«  L  Commands.  Clck 

1543 

147 

1544 

148  End  Sub 

1545 

149 

1S46 

1  SO Pnva»  Sub  Commands.  Ctckt) 

1547 

1ST  On  Error  GoTo  Err  CornmandB.Cack 

1548 

152 

1549 

153      Dim  stDocName  As  Stnng 

1SS0 

154      Dim  ltLinfcCnosne  As  Stnng 

1551 

1S5 

1SS2 

156      '  Ctoae  tie  currant  form 

1SS3 

157      DoCmdCtoee 

1SS4 

158        Open  specified  form 

1555 

159      itDocNtema- 'tnrADM.Majn.SMthboard' 

1556 

160      DoCmd  OpenForm  stDocName   ,  ,  slmkCnavie 

1557 

161 

1558 

162  ExLCommandB.Cick 

15S9 

163      Eat  Sub 

1560 

164 

72 


1566 
1S67 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1S77 
1578 
1579 
1560 
1581 
1S82 
1583 
1584 
1585 
1586 
1567 


1532 
1533 
1534 
1535 
1536 
1537 
1598 
1599 
1600 


1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 


1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 


1642 
1643 
1644 
1645 
1646 


16S2 
1653 
1654 
16SS 
1656 
1657 
1658 
1659 


1670 
1671 
1672 


1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 


165  Err_Con»ran<J8_Clck: 

166  MsgBox  E"  Description 

167  Assume  EjJ I.  C-xnrnand8  ,C*C  k 
168 

169  End  Sub 

Form  tfmPEF 
Code 

1  Attlbute  VB_Name  =  ■Form.frmPEF' 

2  Attribute  VB_Crealabte  =  True 

3  AWIbute  VB_Predeclaredld  =  True 

4  AtTibute  VB_Exposed  ■  False 

5  Option  Compare  Database 

6  Option  Exploit 
7 

8  Private  Sub  cmbPelFlndJUterLpdaJEK ) 
9 

10  Dim  R  As  Recordset 

11  Set  R  =  Me  FtecordsetCtone 

12  RFlndFirst  '(PEF_PK)  =  *  &  Chr(34)  &  Mei|cmbPefFindl,  S  Chr(34) 

13  Me  Bookmark  =  RBoofcmark 

14  Mel[cmbPe(Find!  -  Nul 

15  Me  PEF_PK.SotFocus 
16 

17   End  Sub 

18 

19  Private  Sub  ForrruBeloreUpdatef  Cancel  As  Integer) 

20 

21        IPEF.TlmeStamp)  =  Now 

22 

23   End  Sub 

24 

25    Private  Sub  Form_Current() 

26 

27        Dim  strSQL  As  String 

28 

29        '  Update  re  PEF  Ust 

X        s»SQL  =  "SELECT  DISTINCTROW  JMARINEU PEF] FROM  MARINE  LEFT  JOIN  PEF 

ONIMARJNEJ.IPEFJ  -  IPEF]  |PEF_PKJWHERE  «PEF].|PEF_PKI  Is  NuJTyORDER  BY 

31        MePEF_PK.FbwSource*:slrSQL 


i  PnvateSubPEF_PK_AfterUpdale() 

Dim  sd  SQL  As  String 
I 

i       '  update  the  PEF  Ust 

I        strSQL  =  'SELECT  DISTINCTROW  [MARINE)! PEF) FROM  MARINE  LEFT  JOIN  PEF 
*J  [MARINE],  [PEF]  =  [PEF1  (PEF^PKIWHERE  ([PEF]  [PEF_PK]  Is  NuByDRDER  BY 

Me  PEF_PK.RowSource  =  s»SQL 

i    EndSub 

I   Private  Sub  bHDelete_C>ckO 

>   On  Error  GoTo  Err_btnDeleb_Cick 


En_btiDelete_Clck. 
MsgBox  Err  Description 
Resume  Ejit^btn Delete, Otck 

EndSub 

Private  Sub  tmCtase_Cick() 

On  Error  GoTo  Err_btnCJose_C1ck 


n  "trmMainbnanceSwtchboarg" 


69  En_WiCtose_Clck: 

70  MsgBox  Err  Description 

71  Resume  Ejji  UffiCtose  Ctck 
72 

73  EndSub 

Form  IrmPrepareAndFjtecuteSoKer 
Code 

1  Attribute  VB_Name  =  'FormJrrrPrepareAndExBcuteSolvBr' 

2  Attribute  VB  .Create**  =  True 

3  Attribute  VB.Predeclaredld  a  True 

4  Atfrloute  V8  .Exposed  =  False 

5  Option  Compare  Database 

6  Option  Expicit 


Dim  stAppName  As  String 

stAppName  =  "C:\ToBeFlom\Amptwln\arnptiAin.exe" 
stAppName  =  "CAToSefloYrtArrpWmamp  bar 
Cal  Snef  stAppName.  0) 

"MsqBoi  "Enw  Into  the  command  ine:  'InckjrJe  <  dm  run" 


Err_briAMPL_C«clc. 
MsgBox  Err.  Description 
Resume  EaLbtnAMPLjack: 


AmpiData 

Dim  stAppName  As  String 


Em_btnArnpPfcs_Clck; 
MsgBox  Err  Description 


1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
t713 
1714 
I71S 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 


1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
174S 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
175S 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 


1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
I7B3 
1784 
1785 
1786 
17B7 
1788 
17B9 
1790 
1791 
1792 
1793 
1794 
1795 
1796 
1797 
1796 
1799 
1800 
1801 
1802 
1803 
1804 
1805 
1806 
1807 
1808 


1812 
1813 
1814 
181S 
1816 
1817 
1818 
1819 
1820 


fiosumo  ExILWnAjTiplPlus.Clck 
EndSub 


Dim  stDocName  As  Sting 
Dim  stUnkCrlterLa  As  String 

'  Close  the  current  form 

DoCmd  Close 

'  Open  specified  form 

srDocName  =  "trmPrepfocessingAExBcuOonSwitch  board" 

DoCmd.  OpenForm  slDocName.  . .  stlJnkCrlteria 

jd  LbtnRetemPtevlous_Clclc 


Err_btnfleturnPrevtous_Clck. 
MsgBox  Err  Description 
Resume  ExILNnRetumPrevtous.CSck 


71  EndSub 
72 

73  Private  Sub  Ccmrnand4_Clck() 

74  App»eaflon.SetOpton  'Confirm  Action  Queries'.  False 

75  DoCmd  SetWarnlngs  (False) 

76  DoCmd  RunSQL  'DELETE  *  FROM  AMPL_RESULT.' 

77  Ampl_  Result 

78  ApplcattonSetOplon  'Confirm  Action Queries'.  True 

79  DoCmd  SetWarnings  (True) 
80 

81  EndSub 


Dim  stDocName  As  Sring 
Dim  stUnkOrlterla  As  String 

DoCmd  Close 

'  Open  specified  form 

stDocName  =  'IrmAnaryzeResur 

DoCmd.  OpenForm  stDocName.  . .  stiJnkCriterla 


98  Err_Crjrrrnand7_C»ck: 

9S        MsgBox  Err  Description 

100      Resume  Ex)LCcmmand7.Clek 

101 

102  End  Sub 

Form  (miPreprocessing&FjTCiji)onS>witehboard 
Code 

1  AWbute  VB.Name  =  *FafrLfrmPreprcces34nOj&Fj©c^onSwltl*oafd" 

2  Attribute  VB.Creatable  =  True 

3  Attribute  VB.Piedecbredld  ■  True 

4  Attribute  VB .Exposed  -  False 

5  Option  Compare  Database 

6  Oplori  Exploit 
7 

8  Prtvab  Sub  btnEx)LCIck() 

9  On  Error  GoTo  Err_btnExH_cick 


Err_btoExlt_Clck: 

MsgBox  Err  Description 
Resume  FjoLbtnExtt_CSck 


'  Close  trie  current  form 

DoCmd  Ctose 

'  Open  specified  form 

stDocr4ame  e  "  irmRoclassJ  lie  anon' 

DoCmd  OpenForm  stDocName.  . .  stLinkCriteria 


Err_WnRectasslf>caBon_CSck: 
MsgBox  Err  DescnptJcn 
Resume  Fji_  (^Reclassification  C*:k 


Private  Sub  btriScrubManneData_Ctclc() 

On  Error  GoTo  En_btnScrubMarineDala.Cick 

Dim  stDocName  As  String 
Dim  sLmkCntaria  As  String 

'  Close  the  current  form 
DoCmd  Ctose 
'  Open  specified  form 
stDocName  =  "IrmScrubMarlne* 

DoCmd  Open  Form  stDocName.  .  .  stLir*  Criteria 


Err_t*iScnjbMarlneData_C8clc 
MsgBox  Err  Description 
Resume  ExtLNnScruoManrteDateuCick 


Private  Sub  MnSpeclalAss*gnment.Clck() 
l  On  Error  GoTo  Err  JxriSpecialAss*gnrr*ant_C*ck 


73 


1863 
1664 
1865 


1870 
1871 
1872 
1873 
1874 
1875 
1876 
1877 
1878 
1879 
1880 
1881 
1882 
1883 
1884 
188S 


1890 
1891 
1892 
1893 
1894 
1895 
1896 
1897 
1898 


1907 
1906 
1909 
1810 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1970 


1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
193S 
1936 
1937 
1938 


*  Close  tie  current  form 
DoCmd  Ctae 

'  Open  specified  form 

StDocName  ■  'frmSpacialAssgnmenr 

DoCmd  OpenForm  stDocName.  .  .  stLmkGriiena 


;rr_bT7iSpecaalA«ignrnenL_C*ck 
MsgBox  Err  Descriptor) 
Resume  Ejo1_t*^SpBCniAas^wT«nl_Cick 


95 

96  '  Oose  the  current  lorm 

97  DoCrrci.Ctee 

98  '  Open  specified  form 

99  stDocName  -  "rnnclBssOujtaF^alyAndFir* 

100  DoCmd  OpenForm  slDocNamo   .  .  stLmkCrilona 


101 


106Err_Corrtm«e_Cfck. 

106  MsgBo*  En  Oescnpton 

107  Resume  Fj»LCcmrnand2_ack 


112  Appecatc«vSetCWcn"Confr/m  Acton  Qjerws"   Fabe 

113  DoC^SenWamngs(Fabe) 

114  CtoC*iri.ft«S^*1>ei^TC-F*<WAMPL^F»ESULT,* 

115  AmpLPtosJI 

1 16  Appacalon  SetCptton  "Confirm  Acton  Querns",  True 

117  DoCmd  SefW«mngs  (True) 
118 

119 


127 

128  '  Oose  The  current  form 

129  OoCmdCloso 

IX  '  Open  specified  form 

131  stDocName  -  "frmPrepa/eAndEwculeSoKer* 

132  OoCmd  OpenForm  stDocName,  ..  stLinkCntona 
133 


137  Err_Cc*rrr«nd6_C*ct<: 

138  MsqSoh  En  Descnpton 

139  Raure  Fjal.Corrmftnd6_Cick 


148 

149  '  Close  the  current  form 

150  DoCmdOose 

151  '  Open  specified  form 

152  stDocName  -  >mR0M_Main_Swt:hboard' 

153  RsCrnJ-OpenForm  stDocNamD.  , .  sfljnkCntens 


1  SB  t>  r.ConrrandB^CfccIc 

159  MagBox  Err  Descnpton 

160  Resume  FjoLCc#nmandB_Cick 
161 

162  End  Sub 

Form  trmFIDW   Main_S*.tt*oa;cJ 
Code 

1  Attribute  VB.Namo  -  Torni_trmFtDM_Msjn^Swttchboa/d" 

2  Attribute  VB.Creatable  ■  True 

3  AVibute  vS_PredectaredM  -  True 

4  An itxno  vB.Eaposod  ■  Faa» 

5  Option  Compare  Database 

6  Opoon  EJtrtol 

7  Private  Sub  CorrrnandO_C«cl(( ) 
8 

9     On  Error  GoTo  Err_CommandO_Cick 


1951 

36 

DoCmdCbse 

1952 

36 

'  Cpen  specified  form 

19S3 

37 

stDocName  ■  'trnMarntBrwceSMehboard" 

1954 

38 

DoCmd  OpenForm  stDocName.  ,    stL»(*Cntena 

195S 

39 

1956 

40 

FjQLCcrmwxC_Cfcclc 

1957 

41 

Ext  Sub 

1958 

42 

1959 

43 

Err_Command2_Cick 

1960 

AA 

MagBox  En  Descnpton 

1961 

45 

Resume  Ejol_Command2_C*ck 

1962 

46 

1963 

47 

End  Sub 

1964 

4H 

Prrwte  Sub  Command4_Cbck() 

196S 

49 

On  Error  GoTo  En_Cornmend4_CWck 

1966 

50 

1967 

51 

Dim  stDocName  As  String 

1968 

S2 

Dim  stLmkCntona  As  String 

1969 

S3 

1970 

54 

'  Ooae  tie  CLrrent  form 

1971 

55 

DoCmd  Oose 

1972 

EG 

'  Open  spec  i  t.ed  form 

1973 

57 

sfDocName  ■  "trrnPreprocessing&EscutionSiMC 

1974 

58 

DoCmdCpenFormstDocNarne.  .  .  stUnkCntona 

197S 

59 

1976 

GO 

FjoLCornmi«J4_C*rek: 

1977 

61 

EnlSub 

1978 

62 

1979 

63 

E>r_Cornmand4_CfcclL 

1980 

64 

MsgBox  En  Descnpton 

1981 

65 

Resume  E*LComrnand4_C»ck 

1982 

66 

1963 

67 

End  Sub 

1984 

68 

Private  Sub  Comrrmnd6_C&ck() 

1965 

69 

On  Error  GoTo  &r_Cornmand6_C*ck 

1986 

70 

1967 

71 

Dim  stDocName  As  String 

1988 

72 

Dim  stLmkCnlena  As  Stnng 

1989 

73 

1990 

74 

'  Ooae  the  cunenl  farm 

1991 

75 

DoCmd  Close 

1992 

76 

'  Open  specified  term 

1993 

77 

stDocName  ■  ■frmAnaNzoflesutT 

1994 

78 

DoCmd-OpenForm  stDocName,  .  ,  stbrtcCntena 

1995 

79 

1996 

80 

Exit  Corrrrmrid6  CScfc 

1997 

61 

EjotSub 

'  Ooae  r*j  cunent  term 

DcCndCtaee 

'  Open  specified  form 

stDocrstame  ■  "tnrtmparf  Fj^xje^tchboard" 

DoCmd  OpenForm  stDocNama  ,    stLmkCntena 


l    Err_CorrTnandO_CIrclc 
MjfjBor  En  Descnpton 
Resume  EMLCcmmandO_CJck 

EndSub 

I    Prrvalo  Sub  Ccrnnand2_Ckck0 

i  On  &ror  GoTo  E/r_Carnrnand2_Cack 


2002 

2003 
2004 
2005 
2006 

2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
201S 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 
2029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2038 
2039 
2040 
2041 
2042 
2043 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2063 
2054 
205S 
2056 
2057 
2058 


2062 
2063 
2064 
2065 
2066 
2067 


2070 
2071 
2072 
2073 
2074 
2075 
207C 
2077 
2078 
2079 


83  &r_Ccrnnend6_Cack. 

84  MsgBox  En  Descnpton 

85  Resume  ExL<^*nvnand6_Cack 
86 

87  EndSub 

88  ftrv«bSubCornmande_Cick(, 

89  On  Enor  GoTo  Err_Cornrnand8_C»ck 
90 

91  Dim  stDocName  As  Strrng 

92  Dim  stLmkCritona  Aa  Stnng 
93 

94  '  Ooae  "he  current  form 

95  DoCmdCbse 

96  '  Open  specified  form 

97  stDocName  -  'frmGeneratoReporr 

98  DoCmd.  OpenForm  sOocName. .  .  stLmkCntena 


103  E/r  ,Carnmand8_Cick 

104  MsgBoi  En  Descnpton 

105  Resume  E»LCommand8  Cfcck 
105 

107  End  Sub 

108  Private  Sub  btnEjiLCtcK) 

109  On  Error  GoTo  Err_b"nE»L.Cack 


112     DoCmdCtoao 


ll7Err_btnFjiLCack: 

118  MsgBca  En  Descnpton 

1 19  Resume  £jot  btnf_joLCick 
120 

121  End  Sub 

Form.  trmReciassificaton 
Code 

1  Attribute  V8_Name  >  "Forrr\.frmRectassil>cabon' 

2  Annbuto  VB.CreaBbto  -  True 

3  Attribute  VB.  Predechvedld  -  True 

4  Attribute  VB_Expoaed  -  Fabe 

5  Opoon  Compare  Database 

6  Opoon  Fjpacit 

8      Private  Sub  crrtOassNumber  JWtorLfpdatet) 

9 

10       Dim  stxCanverl  As  Strmg 


1  Convert  the  focal  year  to  a  two  digit  number  for  RD3  File 
strConwal .  CStr(Me  crrtOaaeNuntxar  Cotum<3)) 
stConven  -  RlgmtstrConuBrt.  2) 
Me  WFY  -  ClntfstrConvnn) 


20        Me  btAastgnrnsntType  *  "FT 


24    PrrvaB  Sub  crrtOassl^n&er  winter 0 


Dim  strSQL  As  Stnng 


2f. 
27 

28  '  Thra  query  finds  the  class  numbers,  report  dales  and  class 
convening  dates  associated  with  the  chosen  school 

29  strSQL  -  "SELECT  BNA_EXTnACT  OaaaNurnber.PK. 
BNA.EXTRACT  CtessConvOete.  BNA_EXTRACT  ReportDate. 

BNA^EXTRACT  Frjc*TYoar_PK.  BhlA^EXTRACT  MCC  FROM  FJNA_EXTRACT  INNER  JON 

SCH_TGT_MOS  CN  (BNA^EXTRACT  Cours«Njmber_PK  • 

SCH.TGT_MOS  TC*xjraenUnber_FK)  AND  (BNA_EXTRACT  Tar gaftaOS.PR  - 

SCH_TGT_MCS  TargefMOS.FK)  Wf*P£  8NA_EXTRACT  CourarjNurnber^PK  • 

ForrtK'tnra^tocataailcabcnlcrrtiCounaMaTter  AND  SCH_TGT_MOS  AMOS.FK  - 

Farrra'trtTAclasail'catran'MAMOe,* 

V        Me  cn*CUuBNurnt«  RowSource  .  strSQL 

31 

32   EndSub 


74 


206? 
2063 
2064 
206S 
2066 
2067 


2092 

2093 
2064 
209S 
2096 
2097 
2088 
2099 
2100 
2101 
2102 
2103 
2104 
2105 
2106 
2107 
2108 
2109 
2110 
2111 
21 12 
2113 
2114 
2115 
2116 
2117 
2118 
2119 
2120 
2121 
2122 
2123 
2124 
2125 
2126 
2127 
212B 
2129 
2130 
2131 
2132 
2133 
2134 
2135 
2136 
2137 
2138 
2139 
2140 
2141 
2142 
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
21S2 
2153 
2154 
2155 
2156 
21S7 
2158 
21S9 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2184 
2185 
2186 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 
2197 
2198 
2199 
2200 
2201 
2202 
2203 
2204 
2205 
2206 
2207 
2208 
2209 
2210 


34    Ptrvate  Sub  CTrtK^xasaNurrta^lerLJbdstoO 

35 

36        MeWAMOS-  WcrffcCourseNurnbar  Cdumn(1) 

37 

38    EndSub 

39 

40  Private  Sub  ctrtiSSN_AttorHxla»() 


45  End  Sub 

46 

47    Pnvate  Sub  cmbSSN_EnlorO 

48 

49        Om  strSQL  As  Slrmg 

50 

51  strSQL  -  -SELECT  0IST1NCTTOW  MARNE  SSN_PK.  MAFflNESOI. 
rMHFC  GradDato  FROM  MARINE  LEFT  JOIN  ASSIGNMENT  ON  UARINE  SSN_PK  - 
ASSIGNMENT  SSN^FK  WHERE  << (ASSIGNMENT. SSN_FK)  Is  NJ)).* 

52  Me  crrtoSSMRowGource  -  50  SQL 


56  Prrvato  SubcTTt*SSNr1nd_AfterUpclate<) 
57 

58  Om  fl  As  Recordset 

59  Sol  R  •  Mb  RocardsotC"one 

60  RF.ndFirsiTSSN.FKl-  '  £Crv(34)  &  Ms'[cmbSSNE<ndl  &  CtV(34) 

61  Me  Bookmark  -  RBookme/k 

62  W[crrbSSNFind]  -  Nul 

63  Mo  crnbSSNSelFocus 


2212 
2213 
2214 
221S 
2216 
2217 
2218 
2219 
2220 
2221 

2223 
2224 
2225 
2226 
2227 
2228 


En-_Detet»_C*clL 

MsgSox  Err  Description 
Resume  E»L.Oolea»_CJck 


92  '  Open  specified  form 

93  stDocName  -  'trrr^eprocessinr^EjaKunonSiMlchboar'd' 

94  DoCmd  OpanForm  stDocNarne.  .  .  sfljnkCntoria 


99  En_Ctaae_CaeJc 

100  MsgBox  Err  Description 

101  Resurr»  Ejot_Ctoee_Ceck 


104 

Form  rrmSchool^ssignmenrs 
Code 

1  Attribute  V3_lvBme  -  "Forrn_trmSchoolA»i9T»Tierils" 

2  Attribute  VB_C-satebto  *  True 

3  Attribute  VB_Predeclaradld  -  True 

4  Attribute  VB_ t«pooo.l  >  False 

5  Option  Compere  Database 

6  Opton&o*ot 

7  Private  Sub  Ctoso.  C*ck( ) 

8  On  Error  G0T0  En.Ctoae.CIck 
9 

10  D>m  srDocName  As  Stnng 

11  DmstDrarCntana  As  String 

12  Dm  dbl  As  C 


Seldbl  •CurrenlDb() 

'  Close  Vie  current  term 

DoCmd  Close 

'  Open  specified  lorm 

stDocNamo  -  "frmAnaJyzeResufr 

DoCrnd  OpenForm  stOocName.  .  .  stUnkCnteria 

Forms'  rr  mAnaryzeResuR.  SetFocus 


27  Err.Ctose.Cfcck: 

28  MsgBcn  Err.  Description 

29  Resume  EML.Qoae.Ceck 


33  Private  Sub  Form_CurrenlO 
34 

35  Om  sir  SOL  As  S*  .ng 

36  Om  rec  As  Recordset 

37  Om  dbl  As  Database 
38 

39  Set  dbl  -  CurrenTDbO 
40 

41  '  CaJcutatos  the  tntai  quote,  and  number  of  schools  for  fhe  run 

42  strSQL  -  'SELECT  SunXSun-OfQuota)  AS  TotaJCuota  Count(SurnO(Quote)  AS 
ras^berCfSchoots  FROM  qryTotaJOuotaForRun,' 

43  Set  rec  -  dbl  Cpe/^RecoroseHsr/SQL  dbCpenSnapshot) 

44  Me  txtToauCuota  -  reclTotalQuote 

45  Me  t**jrrtorCfSchools  .  reclNurrberOIScfwas 
46 

47  '  Caicuktos  the  total  number  of  asstgnements  lor  the  run 

48  s»SQL  -  "SELECT  SumfCcurtCtFiscarYeer_PK)  AS  TotalAssigned  FROM 
QrvTotaKjjotaFiaedF'orftun.' 

49  Set  roc  -  dbl  OpervRacorrJset(sa-SQL.  dbOpenSnapshot) 

50  tvtoJjtfToMAssigrod  -  rec'TotalAssjoned 
SI 


Ms  MTotaPercentfil  -  ln«Mo  MTotalAssignod  /  Me  DdToUlOuob) 


5S  EndSub 

Farm:  frmSchooh 
Code 

1  AtmbutB  V8_ntame  -  *FoJmJrmSchrJC«-• 

2  Artributo  VB.Creetabto  -  True 

3  Athbuto  VB.Prededaredld  .  True 

4  Artnbum  VB_E ipoeed  >  False 

5  Opbon  Compare  Database 

6  Opoon  Fjrpacit 
7 

8  Private  Sub  AMOS_PK_AnerlJprJate() 

9  Dm  rec  As  Recordset 

10  Dm  dbl  As  Database 

1 1  Om  stSCL  As  String 


2240 
2241 
2242 
2243 
2244 
224S 
2246 
2247 
2248 
2249 
2250 
2251 
2252 
2253 
2254 
2255 
2256 
2257 
2258 
2259 


2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 


2292 

2293 
2294 


2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 
2309 
2310 
2311 
2312 
2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
232S 
2326 
2327 
2328 
2329 
2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 


13  ■  Update  the  drop  down  ast  lor  AMOS 

14  strSQL  -  -SELECT  Tarr-eMOS.PK  FROM 
onLrsttJnuseoTargeMDSFrrmTAflGfT.MOS  WHERE  TCourseNurrOer.PK  - 

15  Me  AMC6_PK.Ro*Source  -  strSQL 

16  Ms  afTarg^fMOS_FKRov*Source  -  so  SQL 
17 
18 


'  Update  the  TargetMOS^FK  m  the  child  reialon  SCH_TGT_MOS 

Set  dbl  -  CurrentDbO 

"Set  rec  •  dbl  OpenRecordseVsa-SOL.  dbOpenSnapshol) 

TorrmlfrTnScrw>b!subrnnScrKx*rTa(ge«vCS_FK Value-  recrTarge<MOS_PK 


26  '  Input  fhe  correct  MCC  value  for  the  setected  course 

27  strSQL  -  'SELECT  MCC  FROM  TARGET_MOS  WHERE  TCourseNurnber_PK  -  - 
Me  SCoursoNumber_PK.VakjB  i  _ 

28  Set  dbl  -  CurrentDbO 

29  Set  rec  -  dbl  CpenRecordsettstrSCL.  dbCbenSnapshor) 

30  Ma  MCC  Vakje  -  roclMCC 
31 

32  '  Update  fhe  TCouneM#nber_FK  in  the  child  relation  SCHJTGT_MOS 

33  -r-omts'tmiSchcoblsobtm-SchooBT^^ 
Me  SCoursenkartoer.PK.  Value 


38  Private  Sub  btnCtoar.Cackt) 
39 

40  Om  dbl  As  Database 

41  OmstrSCJ-AsSttfVj 

42  Om  ■  As  Integer 

43  Om  rec  As  Recordset 


45 


Seldbl*  CurrentDbO 


47  s»SO.  •  *SELECT  DISTINCTRCW  TARG£T_MOS  TCourseNurnber_PK  FROM 
TARGET_MOSL£FTjaNSCH_TGT_MOSONTARGiTT_MOSTaigetMOS  PK- 
SCH  TGT_MOS.TargetMOS_FX  AND  TARC£T_MOS  TCour»eNurnber_PK  . 
SCHJTGT  MOS.TCouraeNurrber  FK  WHERE  (((SOi.TGT_MDSTa/geWOS_FK)  Is 
Nul)AND((SCH_TGT_MCiS  TCourselvumber.FrC)  Is  NulJJORDER  BY 
TCouraeNurnber.PK' 

48  Set  rec  -  dbVCpenRecordset(s»SGL.  dbCpenDynaset) 


SO 


II  rec  EOF  .  Fake  Then 
recMoveLast 

End  II 

'  Clear  unused  co 


n  the  target,  mos  tabte 


56  It  rec  RecordCount  >  0  Then 

57  For  1-  1  To  rec. RecordCount 

58  '  D-sabtes  fhe  action  query  cenfrmaton  message 

59  AppicaaaaSeOpbon  'Confirm  Aclon  Quenes'.  False 

60  DrjCmriSerWarrangs  (Fateo) 
61 

62  atrSQL  -  "DELETE  '  FRCM  TARG£T_MOS  WHERE 
TARG£T_MC6  TCoursanLmber.PK  -  "  4  recrTCc-nenumber.PK  &  " 

63  dbl  Ejbcubs  s*SCL 
64 

65  '  Enables  he  acton  query  confirmatron  message 

66  AppacafronSetOpaon  "Confirm  Aclon  Quenes*.  True 

67  DoCmLSerWarrw-gs  (True) 


70       End  If 
71 

72  Update  the  Course  Number  Uv 

73  strSQL  •  -SELECT  DISTINCTROW  TARGET.MOS  TCourr»er«JTbef_PK  FROM 
TARGET_MOS  LEFT  JOIN  SCH_TGT_MOS  ON  TARG£T_MC6  TargeWOS.PX  - 
SCH  TG7  MOS  TargeMDS  FK  AND  TARGET  MOS  TCoursoNurrcnr   PK  . 
SCH_TGT_MCS.TCourseNurrber_FK  WHERE  ({(SCH^TGT.MDS  TargetMCS.FK)  Is 
P«jiyU«H(SCH_TCT_MOS  TCours«r>*a-t>or .FK)  Is  NjB))ORDER  BY 
TCrjurasN*JTbar_PK,' 

74  Mp  SCcur^oNumber   PK  Hov-Source  .  strSQL 
75 

76  EndSub 

77 

78    Prrvate  Sub  WriFtesr*lAJ3enaljos_Cack() 


'  DrsBbfes  the  ackon  query  confirmation  message 
Appita&on  SerOptwn  ■Confirm  Aclon  Cuenes".  False 

DoOrd  SeftVarrungs  (Fab*} 

DoCmd  FanSOJ.  "UPDATE  SCHOOL  SET  Per*lty Factor  .  24;" 

'  Enables  fhe  acton  query  conlirmalan  message 
Appicabon-SelOpbon  'Confirm  Ackon  Quenes'.  True 

DoCmd  SofWammgs  fTruei 


95    PTrwate  Sub  crrt)C<3urselSa*TtiorFind  AltorUxtatei  j 
96 

97  Om  R  As  Recordset 

98  Set  R  -  Me  ReccitterClone 

99  RRndF.rst  'ISCourseNurnber  _Piq  -  '  &  Cnr(34) 
r^lcrrt^CourseU-T-berFind]  &  Grv<34) 

100  MeBookmark -  RBookmark 

101  MeilcntjCcurseUiTTberRnd]  -  fail 

102  MBSCoursehafnber^PKSetFocua 
103 

104  End  Sub 

105 

106 Private  Sub  cmbPenaffy  V-y*._ Alter UpdatM  I 


75 


2340 

'06 

Select  Case  ctrtoPenalty  View 

2341 

ice 

Case '4*- 

2343 

110 

WPenaltyFector  -  4  "  24 

2343 

C*se*3T 

2344 

112 

KPonalVFactor  >  3  *  24 

2345 

113 

Cm  "2* 

2346 

114 

OdPonaltyFector  -  2  *  24 

2347 

115 

Case  Mif 

2348 

118 

wPwnar\F*ctDr  -  1  *  24 

2349 

117 

c*s*  -i.ir 

23SC 

118 

WPenaflyFactor  .24/2 

2351 

119 

Case-l/a*- 

2352 

120 

MPenafly  Factor  .  24  /  3 

2353 

121 

Cue  '1/4X- 

2354 

122 

rjaPen&rty  Factor  .24/4 

23SS 

123 

End  Select 

2366 
2366 

2367 


2371 
2372 
2373 
2374 
2375 
2376 
2377 
2378 


2382 
2383 
2384 
2385 
2386 
2387 
2388 
2389 

2391 


2400 
2401 
2402 
2403 
2404 
2406 
2406 
2407 
2408 
2409 
2410 


2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
243S 
2436 
2437 
243B 
2439 

2440 
2441 
2442 
2443 
2444 
2445 
2446 

2447 

2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 
2480 
2461 
2462 
2463 
2464 
2465 
2*68 
2467 
2468 


130  Private  Sub  Carm»ndi4_Clcl<0 

131 

132      Om  stSOL  As  SUng 

133 

134  '  Disables  the  acton  query  confirmation  message 

135  AppiKaDon  SeiCpflon  -Confirm  Aclon  Cuertes",  False 

136  DoCmlSeW arrange  (False) 
137 

1 38      DoCmd  ftaiSQl  "INSERT  INTO  TARGET.MOS  (  TCourseNurrt»t_PK. 
TargeWOS_PK,  MCC  )  SELECT  DISTINCT  BNA_EXTHACT  CourseNun*ef_PK. 
BNVEXTRACT  TargeWOS.PK.  BW_£XTOACT  MCC  FROM  BNA.EXTRACT.- 
139 

140  '  Enables  tie  acton  query  conftrmalon  menage 

141  Appacabon  SefCpOon  'Confirm  Aclon  Queries'.  True 

1 42  OoCmd  SeW  arrangs  (True) 
143 

144  '  Update  tw  Course  Number  Usl 

145  stSQL  -  -SELECT  DISTlNCTflDW  TAHGET_MOS  TCourseNurrttef _PK  FROM 
TARGET.MOS  LEFT  JOIN  SCH_TQT_MOS  ON  TARGET.MOS  TargeWOS.PK  . 
SCH_TGT_MOS  Targe  WOS.FK  AND  TARGET.MOS  TCours»Number_PK  . 
SCH_TGT_MOS  TCourser^jrrtw.FK  WHERE  (((SCH.TGT_MCSTargeWOS.FK)  Is 
Nuf)AM)({SCH_TGT_MOS  TCourse*urrt>er_FK)  Is  r*J))ORD£RBY 
TCoursehkaTtoer.PK.- 

146  Me  SCourseNurrt>er_PK  FtowSource  .  sVSCL 
147 

148  End  Sub 


151  Private  Sub  CcmrarxiH  _Clt<  i 

152  Om  trm  As  Fam,  CD  As  Contol 

153  Om  va/ltm  As  Variant.  InO  As  Integer 

154  Dim  st-SCL  As  String 


157 
158 

159  '  Thu  code  oners  tva  selectod  Target  MCSs  into  toe  SCH_TGT_MOS 

160  Set  trm  -  Formal  rrmSchoots 

161  Set  CD  .  rrmJIsfTargeMCS.FK 

162  tocachvBrtTmlnclltemsSelected 

163  For  m9  -OTocttCotornnCourtf-  i 
164 

165  ■  Tnis  pus  lie  -slue  Found  In  tie  1st  bos  Into  a  tort  box. 
ma«ng  It  reedabto  by  tie  query 

166  Fair^lrrnScnootstTargetVaJue  Value  .  cB  Cokimdro   varltm) 


178     Nnawwtm 
179 

180  '  Updato  tw  Target  MOS  1st 

181  a»SQL  -  'SELECT  tJafoe*OS_FK)  FROM  [SOLTGT_M0S)  WHERE 
|SCourseNumber_FKl  -  "  £  FomaJrmficrpo«SCoursoNiiTt)er_PK  Value  4  ~  £ 

'  AM)  AMOS.FK  -  "  &  Fom«rrrmSchootefAMOS_PK  Value  &  " 

182  ForrrallrmScrwobiL .  I  sfT  ergo  WOS _FK_H«tory  FtomSoi-r  o  -  stSQL 
183 

184  '  Update  tie  Potonlal  Target  MOS  1st 

185  stSOL  -  •SELECT  TargeWOS.PK  FROM 
an/UstUnueecTTargeMOSFrarnTARGET.MOS  WhtfiE  TCoursefaanber.PK  -  "  & 

186  Me.bfTa/gefMCS_FKRDwSouree--tSCl 
187 

188  '  Update  tie  Course  Number  Lot 

189  stSOL  -  "SELECT  DISTtNCTROW  TAflr3£T_M0&TCourseNjmber_PK  FROM 
TARGET.MOS  LEFT  JOIN  SCH.TGT.MOS  ON  TAflGET>OS  TargetMOS.PK  - 
SCH.TGT_MOS  TaroetMOS.FK  WHERE  (((SCK_TGT_MOS  TergeWOS.FK)  Is 

190  Me  SCouneNumber_PK  FtowSource  .  stSQL 
191 

192 


1 96  Private  Sub  Corr-nand40_Clck() 

199  Om  trm  As  Form,  cfl  As  Contol 

200  Own  varllm  As  Variant,  inn  As  Integer 

201  Om  stSOL  As  Sting 
202 

203  '  Thts  code  Deton  tie  aetectod  Target  Mae's  and  H 
ankles  tram  tie  SCH_TGT_MOS  table 

204  Set  trm  -  Forms 'frmScnoote 

206       Sat  cl  -  ftTrtUs/T -r<*>WOS.  FK  .Hstory 

206  For  Each  isvrttnincf.ltemsSetocted 

207  For  ma  -OToctLCoajTtoCounl- 1 


208 


'  Ths  puts  tie  value  tound  in  tie  1st  bos  into  a  teal  box. 
eedabto  by  toe  query 

FcrrrBflrmScrDokfTargerValje  Valte  ■  i.fl  Goa-nn(ina   varum) 


215  '  Deletes  tie  record  esecoatod  **v.  tie  specified  value  fr 
tie  SCH.TGT.MCS  tabte 

216  DoCmdCp-nQuery  -QryDetea^rtTGTJvlOS- 


2472 
2473 
2474 
2475 
2476 
2477 
2478 
2479 
2480 
2481 
2482 
2483 
2484 
2485 
2486 
2487 
2488 
2489 
2490 
2491 
2492 
2493 
2494 
2495 
2496 
2497 
2496 
2499 
2SO0 
2501 
2502 
2503 
2504 
2S0S 
2506 
2507 
2508 
2509 
2510 
2511 
2S12 
2S13 
2514 
2515 
2516 
2517 
2S18 
2519 
2520 


2523 
2524 
2525 
2526 
2527 
2528 
2529 
2530 
2S31 
2532 
2533 
2534 
2535 
2S36 
2S37 
2538 
2539 
2540 
2541 
2S42 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2SS3 
2554 
2S5S 
2556 
2557 
2558 
2SS9 
2560 
2561 
2562 
2563 
2564 
2S6S 
2S66 
2567 
2568 
2569 
2570 
2571 
2572 
2573 
2S74 
2S7S 
2576 
2577 
2576 
2579 
2560 
2581 
2582 
2SB3 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 


222      Nwtvarlttn 
223 

224  updato  the  Target  MOS  1st 

225  anSCL  -  -SELECT  rTargeWOS.FKl  FROM  [SCH_TGT_MOS)  WHERE 
|SC-Ki^eHxnber_FK]  -  "  &  Forrnelfrrrfichc^SCcurser*jTc*r  J^Vatoe  &  "*  & 
'  AND  AMOS.FK  .  ■  &  Forma'  Im^crnoWAMOS.PK.  Value  &  - 

226  Forrn«tm^hooS!UsnargeMOS_FK_Hstory  FtowSource  .  strSQL 
227 

228  ■  Updato  the  Potential  Target  MOS  1st 

229  stSOL  -  "SELECT  TergeWOS_PK  FROM 
oryUstUr«nedTaro^MOSffOmTARG£T_MOS  WHERE  TCoursenurnber_PK  -  -  4 

230  Me  OTaroeCvOS.FKlRowSource  .  sfrSOL 
231 

232  Update  tie  Course  Number  Ltst 

233  stSOL  -  *SELECT  DtSTINCTflOW  TARG£T_MOS  TCours*nim>er_PK  FROM 
TARGETjVOS  LEFT  JOIN  SCH_TGT_MDS  ON  TARGETJWOS  TargeWOS.PK  - 
SCH_TGT.M0STarge4M0S.FK  WHERE  (((SCH_TGT_MOS  TargeWOS.FK)  Is 

234  Ma  SCoursefaawbe*_FX  FtowSource -strSOL 
235 
236 


241  Private  Sub  Forrr_.BeforeUpda»( Cancel  As  Integer) 

242 

243      [Sch.TkneStemp)  -  Now 


249 

250  '  Update  the  PotentUJ  Target  MOS  1st 

251  stSOL  -  "SELECT  TargetMOS.PK  FROM 
<TyUstLl_iisdTafge»«SRomTAflG£T_MOS  WHERE  TCcorseNun*er_PK  -  "  4 

252  Mo  KfTargtrtMOS   FX  RpwSourco  •  sSSOL 
253 

254  '  Update  Bib  Target  MOS  Ust 

255  StSOL  -  -SELECT  rjanjeMOS.FK]  FROM  |SCK.TGT_MOS]  WHERE 
|SCourseNurnber_FK]  -  -  4  Ms  SCoLrseNumber.PK  Value  4  ~  4  '  AND  AMOS.FK 
-  -  &  Me  AMOS.PK  Vaa»  4  - 

256  Ma  Ltsf:afgeftOS_FK_H3a-ry  JtoftflBWH  -  st-SOL 
257 

258  ■  Update  ihe  Course  Number  Ust 

259  stSOL  -  "SELECT  DISTINCTROW  TARG£T_MOS  TCoursoNumber  PK  FROM 
TARGET J*0S  LEFT  JOIN  SCH_TGT_MOS  ON  TARGETJVOS  TargeWOS.PK  - 
SCHJCT_MCSTarge*OS_FK  AND  TARGET.MOS  TOsjraeNurnber.PK  - 
SCH_TGT_MOS  TCouraeNurnber.FK  WHERE  (((SCH_TGT_MOS  TargeWOS.FK)  Is 
^uf)A^|^(SCH_TGT_MOS.TT^xs^«Wurrt»r_FK^  Is  Nuf))ORDER  BY 
TT^ouraeNurnber_PK. ' 

260  Mo.SCourseNLmtwr_F^Fto*-SourCB-  strSQL 
2S1 

262  '  Farces  user  to  enter  data  tor  course  number,  betore  tie  Assigned 

263  If  IsNuVMa  SCcurseNumber.PK  Vafcje)  Then 

264  Mb* AMOS _PK.  Enacted  -  False 


Me'AMOS.PKEnabted  .  True 


'  Ft  evens  the  user  From  accKtontaty-  changing  a  c 
II  lsM«SCoursei«J-tor_PK)  Then 

fctel&CourseNkJT*er..PK  Locked  -  Fabe 


'  Prevente  tie  user  from  accidonBaly  changmg  an  AMOS 
II  !sNu*AMOS_PK)  Then 

Mel  AMOS.PK  Locked  -  Fabe 
Eae 

MeiAMOS_PK.Locfced  -  True 


'  Update  the  penalty  factor  Uev 
Setect  Case  WPenafty  Factor 
Case  96 

crrtoPenafly  Van*  -  '4_- 
Case  72 

crntrtnaayview-  -3T 


Caae24 

crnbPermAy View  -  Mi* 
Case  12 

cmbPenaBy  View  -  -1/2T 
CaseS 

cmbPenattyVkrw  .  '1/3X* 
CaseS 

cmbPonally  View  .  *i/4i- 
End  Setect 


308  Private  Sub  SCourseNurnber_PK JWterUpdatoO 
309 

310  Dim  rec  As  Recordset 

31 1  Dim  obi  As  Database 

312  Dim  stSQL  As  String 
313 

314  Update  tie  drop  down  tsi  lor  AMOS 

315  StSOL  -  'SELECT  Targa4MOS_PK  FROM  TAflG£T_MCS  WHERE  TCoursetvlmber_PK 
-  -&Ma.SCourseNumbar_PK  Vaue4  ■ 

316  Mw.AMOS.FKPtowSaurce  -  stSQL 

317  Ma  anTargaWOS.FK  RowSourca  -  StSOL 
318 

MOS 


320      Ma<AMOS_PK  Ervabtod  -  True 
321 

322  End  Sub 

323  Private  S_C  btoDatete_ClckO 

324  On  Error  GoTo  ErrJitnOeteto.Clck 


329  '  DetotoS  fie  record  a 
SCH_TGT_MOS  tabte 

330  OoCmd  OpanQuary  ■o/yOateteSCH.TGT.MOSEnty' 
331 

332  ■  Detetes  fie  record  associated  win  tie  specified  vaUe  Ir 
SCHOOL  tabte 

333  DoCmd  OpenOu-ry  'cryDeteteSCHDOLEnty' 
334 

335      '  Enabtea  t*  acton  query  conrir-naton  rraaaagu 


76 


2603 
2604 
2605 
2606 
2607 
2606 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 


2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 


2640 
2641 
2642 

2643 

2644 

2645 
2646 
2647 
2648 
2640 


2653 
2654 
2655 
2656 
26S7 


336      Apptcaton  SeOpton  'Confirm  Acton  Queries'   Truo 


344  t ■$<    brnOeteto.  Ok  k 

345  MsgBox  Erf  Descnpton 

346  Resume  ExtJXnDetob.CIck 
347 

348  End  Sub 

349  Private  Sub  btvClose.CackO 
3S0O  Error  GoTo  Err^btnOose.CSck 


359  Err.bnCtose.ack 

360  MsgBox  Err  Descnpton 

361  Resume  E»LrWOoae_CSck. 
362 

363  End  Sob 

Form  rrmSchooiToPEF_MainI 
Code 

1  Awibute  V8_r\tame  -  'ForrrLfrrriSchoolToPEF_Mainr 

2  Aflribute  VB.Croatoblo  -  True 

3  Atubute  Vh   pTodoi-.b/ wild  -  Truo 

4  Am  ibute  VB_Ejt3osed  •  False 

5  Opbon  Compars  Database 

6  OpbonFjpicit 


2668 
2670 
2671 
2672 
2673 
2674 
267S 
2676 
2677 
267B 
2679 


Err_bteCtose„C»ck: 

MsgBox  En\Descriplan 
Ftosume  E»LrjmCtose_C»ck 


Lrr_b*nOeto»_C*clc 

MsrjBoi  Err.  Descnpton 
Resume  E» (.  WnDetete._Cick 


i  Prrvate  Sub  crrtoCourseMjrnberFind  JVfterUpdateO 

)       Dim  R  As  Ptocordvy 

i       S«t  R  -  Me  RacordsefClDne 

J        RFmdFirst  -(SCourseMjTber.PK)  -  "  &  Chr(34)  A 

e'[crrt>CourseNumberRndl  &  Chr'34) 

J        Me  Bookmark  -  RBookmart; 

r       Me^crrxjCourseNumberRrrf] .  Mi 

3       Me  SCourseNuntwr  PICSelFccus 


2730 
273J 

2732 
2733 
2734 
2735 
2736 
2737 
2738 
2736 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2756 
2756 
27S7 
2756 
2759 
2760 
2761 
2762 
2763 
2764 
2765 
2766 
2767 
2766 
2768 
2770 
2771 
2772 
2773 
2774 
277S 
2776 
2777 
277B 
2779 
2780 
27B1 
2782 
2783 
2784 
2785 
2786 
2787 
2788 
2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2801 
2802 
2803 
2804 
2805 
2806 
2807 
2808 


orySch  Pet  CM  |PEF]  |PEF_PK]  -  |qryScr,_Pef]  [PEF_FK|  WH£RE 

((r*ySch_Pef]  |PEF_FK)  Is  Mi)  ORDER  BY  |PEF]  |PEF_PK];* 

96       Me.LrstUnseteclodPEF  RovuSource  -  stSOL 

97 

96       '  Update  tw  Selected  PEF  List 

99  sfrSCL  -  "SELECT  |PEF_FK)  FROM  qrySch_Pef." 

100  Me  UstSetectedPEF  FtowSource  -  stSOL 
101 

102  End  Sub 
103 

104  Prrvate  Sub  F*gjilArrow_Ck:hO 

105  Own  frm  As  Form  c8  As  Control 

106  Dmivwltn  As  Variant,  intl  As  Integer 

107  Drm  sTrSCL  As  Sfring 
108 

109  '  This  code  Detob  lhe  selected  Target  MOS's  and  its  associated 
entries  tram  th©  SCH_  .TGT_M0S  table 

1 10  Set  frm  -  For  mail  rmSchoolToPEF_Mfljnt 
in      Set cl -  IrrrfUstSetectodPEF 

It?     For  Eachva/ltmlnclltemaSebcted 
113         For  inO-  0  To  cl  CdumnCoi/H  - 1 

1 15  *  Thrs  puts  the  mJue  found  in  lhe  fed  box  int>  a  ted  box, 
making  it  readable  by  the  Query 

116  FomBllrmSchoolToPEFJWainrJPEFValue.  Value-  cU  Cokmnfiri 


121  '  Deletes  the  record  associated  v*lh  the  specified  value  from 
tie  SCH_TGT_MOS  table 

122  DoCmd-CpenQuery  ■gryDebteSCH.PEF- 


128     Nextve/ltn 
129 

130  ■  Update  tie  Potential  PEF  1st 

131  «Sa  -  "SELECT  DISTINCTPOW  [PEF].[PEF  PK)  FFCM  PEF  LEFT  JOIN 
qrySch.Pel  CN  (PEF)  [PEF_PK]  .  |qrySch_Pef]  [PEF_FK[  WHERE 
flon/Sch_PeT).[PEF_R<l  Is  Mi)  ORDER  BY  |PEF]  |PEF_PK).' 

132  Mo.UMUnsetectedPEF  FtowSource  -  stSCl 
133 

134  ■  Update  lie  Selected  PEF  List 

135  sfrSCL  -  "SELECT  [PEF_FK]  FROM  qrySch_Pef;" 

136  Me  bstSebctodPEF  Fto*6ouree  -  stSCL 
137 

138  End  Sub 

Form  frrrfichoolToProperlyMaint 
Code 

1  Afributo  vB.Name  ■  'Fom^frmSchooTToPropertyMunr 

2  Attribute  VB_Creatabte  >  True 

3  Attibute  V8_PredeelerecJd  -  True 

4  Attribute  VB.EJCoaed  -  False 

5  Optron  Compare  Database 

6  Cpfton  Eipfcil 


18  Err_tXnCte»_Clck: 

19  MsgBox  Err.  Descnpton 

20  Resume  E»L_W*3ose_CSck 


55  ■  Update  •»  Potential  PEF  is 

56  strSCL  -  "SELECT  DISTINCTPOW  [PEF][PEF  Ptq  FROM  PEF  LEFT  JON 
o^Sch  PefCN[PEF].|PEF  Ptq  -  |qrySch_Peil  (PEF  FK1  WHERE 
([qrySch_Pef]  [PEF.FK]  Is  Mi)  ORDER  BY  |PEF|.|PEF_PK];* 

57  MeUstUnsoiectedPEF RowSource -  s*SOL 
58 

59  Update  he  Selected  PEF  Lot 

60  sfrSCL  -  'SELECT  [PEF_FK1  FROM  qrySch_Pef;" 

61  rite  UstSetectedPEF  RowSource  -  stSOL 


281 S 
2816 
2817 
2818 
2819 
2820 
2821 
2822 
2823 
2824 


35  Err_btnD«tote_Ck-k 

36  MsgBox  Err.  Descnpton 

37  Resume  E»LbtnDelete_Cick 


27X 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2713 
2714 
2715 
2716 
2717 
2718 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2726 
2727 
2728 
2729 


65  Prrvate  Sub  LertArrow_C*ckO 

66  Dim  Irm  As  Form.  cB  As  Control 

67  Dimvarlrm  As  Vanant  inO  As  Integer 

68  Dim  strSCL  As  Stnng 


'  Thjs  code  enters  lhe  sfttocted  Target  MOS's  ir 
Set  rrm  -  FomBllrrnScrwonoPEF.Maint 

Set  Cl  -  irm'LrttUnsotectsdPF  f 
For  Each  varltm  In  cttltemsSetacted 
For  mD  -  0  To  cl  ColurnnCount  -  1 


>flieSCH_TGT_MOS 


79  '  This  pub  the  value  tound  in  the  trst  box  into  a  ted  box 
making  it  readable  by  lhe  query 

80  ForrrwItriT^hoon'oPEFJWunr'PEFVaJueVakje-  ctCoajmnflnB, 


2B3S 
2836 

2837 


2842 
2843 
2844 
2845 
2846 
2847 
2848 


2852 
2853 
2854 
285S 


tngPecordNum  .  Me  Currenflecord 


51  DoCmd.CpenForm  'tmSchoofToPropLewMainr 

52  DoCmd  GoToflecord  acDateFcrm,  "trniScrxxjrroPropLevelvlBrnr.  acGoTo. 
hgRecordNjm 

53  Forms! frmScbocttoPrcpl_ei«»l*neChosenLew*  •  0 
54 

55  '  Update  tie  aetecUd  property  1st 

56  sfrSCL  -  "SELECT  [FPropertyntame^FKJ  FROM  FLND_SCH_PRCP  WHERE 
SCcMseMinber^FK  -  "  & 

ForrTaltrTT&riMlToFYopLoiieMarrtf  4  -  4  '  And 

AM0S_FK  -  "  &  FormsltrrrSdioriToPropljswlvtejnrjAMCe_PK.Valje  &  ~  4  ' 
And  Level  -  "  &  Forrrv!frn£cficcroFYcpLeveHainr<ChoeeT^jevei  &  "  &  " 
LNON  SELECT  |LPropertyName_FK]  FROM  LCCLSCK_PRCP  WHERE  SCourseNumber.FK 
-  "  4  Forrm'trmSchoolToPrcpLsvelvtanESCcur^^  4  ~  &  ' 

And  AMOS_FK  .  "  S  Forrm'hmScrTOiToPrcpLeveM8jneAMOS_PK.Valje  4  "  4 
And  Level  -   4  ForTTB!trrnSchcoToPropLe**4\Un((>»sflrilevfil  4  ~ 

57  ForTTBltm&toon'oftQpLeveMainetil.evelO  RowSource  -  strSCL 
58 


63  Err^bttLevelO.ack 

64  MsgBaxEn.Descnr, 

65  Resume  Ej»LbtnLevelO_C*ck 


Update  tv>  Poton&al  PEF  tsl 
strSCL  -  "SELECT  DtSTlNCTRCW  IPEFJ  |PEF_PK)  FROM  PEF  LEFT  JOIN 


77 


2864 
2865 
2866 
2867 


2870 
2871 
2872 
2873 
2874 
2875 
2876 
2877 
2878 


2912 
2913 
2914 
291 S 
2916 
2917 
2918 
2919 
2920 


2930 

2931 
2932 
2933 
2934 
293S 


2939 
29*) 
2941 


2946 

2947 
2946 
2949 


2970 
2971 
2972 
2973 
2B74 
2S75 
2976 
2977 
2978 
2979 


mgRecordMm  -  Me  CurrenlRecord 


79         DoCrnd  OpanForm  •IrmSchoafToPropLwaWwnr 

BO        DoOndGoToFtocordacDa&Farm  "trrr^SchoofioPropLowlMainr   acGoTo. 

kxjRecoroT4jm 

81         rwrra'Im^hcoiTorVcpLevefcAaaiBQioaenLeval*  1 

62 

83  '  Update  t»  selected  property  1st 

84  sfrSQL  -  'SELECT  (FFVarjartyNarne.FK]  FFCM  FUND.SCH.PROP  WHERE 
SCourser*anber_FK  -  ■  & 

Fcriml(rn*choofToF^ori^«WaineSC«#ael**JTto7_F^VaJue  &  ~~  S  "  And 
AMOS.FK  -  -  i  FcrTT»'irmScf«xtTc>PtopLe\«Mam»AMDS_PK  Val»  &  **  &  ' 
And  Levrt  -  *  &  FofTre'lrrn&choon'c^opL»<Alatf^CJxj»«M.rNW  &  **  &  * 

UNCN  SELECT  ILFTopertyNaxTO.FKl  FFCM  LOG_SCH.PROP  WHERE  SCourseNumber.FK 
.  "  4  F«iT»lfrTrtE^hoonoPropLevelMainP SOarseMjrtier    PK  VaLe  &  ~  &  * 
And  AMOS.FK  -  "  &  Forrra!rrrnSchcr^oF*opL0«Ma^  AMOS.PK  Vai»  A  ~  & 
And  Level  >  4  F<yirellrn£choan'oF^cpLm««\terit!Chc«anLB^  &  ~ 
es        ffXTm'.tm&ct^oono^apUMeUunDMjMelO  RowSource  -  strSCL 


90  E/r.btiLevoll.Cick 

91  Ms"j6c<  En  Deecnpton 

92  Resume  E*  LWnL  well  _C*c  k 


t02     hgRnenHn  ■  Mb  CunmflBCOfd 

103 

104      DoCrndCtase 

DoCmd  OpenForm  "tm»Schoon'oPtcpLe««Mainr 

DoOnd.GoToReeord  acDataForm  "rrmSchoorTcPropLeveMainr.  acGoTo. 
hgRMardMm 

Forrrn>lnTiScnoanoPTC^e%eMaint!Ctoier<LevBl  -  2 

'  Update  tie  v».t(>1  property  1st 

strSCL  -  "SELECT  [FrmjpertyNarno.FK)  FFCM  FUND.SCrLPFCP  WhEPE 
SCc*«ef*jn*er_FK  -  "  A 

FcvTmIfrTT£chcx^oF>apLe^<«taintSau9eU«Tter_PKVidue  &  ~  & "  And 
AMOS.FK  -  "  &  FaTm'!rfrSchoGfroProc4..w«Waine*MOS„PK  Value  4  ~  4 
And  Level  -  *  &  Forn»'hrnSchQC^oFVopLe%e*^afftfChoaanLevei  4  "  4  " 
UMON  SELECT  [LPropertyfi«wi,B_FKI  FFCM  LOG.SCrLPFCP  WHERE  SCoursenLinbef.FK 
-  ~  &  Forni»!tmV>^ioo(TaPTopL»v«IMainrSCour*eN^T*er    PK Value  &  ~  &  ' 
And  AMOS.FK  -  "  &  FanTO'frrT6choe^oProf*jeveWart!AMOS.PK.VakjB  A  _  & 
And  Lev*  -   &  For7TBlrn£choc^oPrapLe%e«AaineChoaenljeveI  &  " 
1 12      Focmsltm6choon'oPropLeveW»jn8tstevelO  RowSource  -  strSCL 


1 7  Err_b4nLevBC_aclc 

18  MsgBox  Err  Deacnpton 

19  Reeuma  E»LbmLevor2_C*ck 


1 29      mgFtoc  or ^Nltt,  .  Me  CunerrtFtocord 

130 

131      OoCmdCtase 

132 

133      DoCmd  OpenForm  'IrmSchociToPrcpLaveMHnr 

T34      DcOnd  GoToFWcord  acDetoForm,  *rrmSchoonbFvopL*vrjMajnr.  acGoTo. 

hgFtaccrdMan 

135      FormsltmTSchoofToPTorjLe>c»/fcMiPChaaerAjeM^  .  3 

136 

137  '  Ltodato  to  aeiectod  properly  tst 

138  afrSCL  -  *SEL£CT  |FProperlyName_FXI  FFCM  FLND.SCH.PFCP  WHERE 
SCour  seNjrrbw  _  FK  -  -  A 

F arms' 1rmS^ecJToPraplfT***ajnr  SGourwrNUrbtt    Ph  Value  &  "  &  '  And 
AMOS.FK  -  "  &  rw™ittn6crooTroF^or^owiWanCAMOS_PK.Vaaje  A  -  A  ■ 
And  Level  ■  "  &  FornB!trrr6chcon'oFVopLevBMamt!C7iceviL»vBf  &  **  &  ' 
UMON  SELECT  ILPropartyNamo.FX]  FFCM  LOG.SCH.PROP  WHERE  SCourseNurntwr.FK 
.  ~  4  Forms! fTrnSch3crToPrc»l^v«#rlain(SCounwr4*rtMr_PK  Vakje  &  ~  &  * 
And  AMOS.FK  -  "  A  FamB'trn^chccrfToF^opLeveMairit'AMOS.PK  Vakje  4  ~  4 
And  Level  -   &  Fcrrna'trrr6ct«x^oF^opLevBl»U^t!Chasertavef  &  " 

1 39  Forms' IrmScrwoJToPr opLevefctajnebAeveC  Rov-Source  -  strSCL 


2992 

2993 
2994 

2996 
2997 


3002 
3003 
3004 
3005 
3006 
3007 
3008 


3012 
3013 
3014 
3015 
3016 
3017 
3018 
3019 
3020 
3021 
3022 
3023 
3024 
3026 
3026 
3027 
3028 
3029 
3030 
3031 
3032 
3033 
3034 
3035 
3036 
3037 


3042 
3043 
3044 
3045 
3046 
3047 
3048 
3048 
3050 
3061 
3052 
3053 
3054 
3055 
3056 
3057 


3063 
3064 
3065 


3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
3081 
3082 
3083 
3084 
3085 
3086 
3087 
3088 


144  Ert_b4nLev8C_C*ck 

145  MsgBox  En  Deecnpaon 

146  Resume  E*lbW-»voC_Cick 


156      hgFtecordtajn  ■  Me  CufrentFtocord 


DoCmdCtoee 


160  OoCmlOpaiFonn'1rmSct*xIToPicvL***toinr 

161  DoCmdGoToRecard  ecDetoForm.  'frmStfoonbPropLeweMainr,  acGoTo. 
hgFtBCordhkrn 

162  FcvTrallnT&Nx^cPTopLavBMaineCnaeerijawal  •  4 
163 

164  Updato  to  ntoctod  property  1st 

165  eirSOL  -  •SELECT  [FPropartyf*rr».FK]  FFCM  FLrC_SCK_PPCP  WHERE 
SCouJseHfTte.FK  -  *  & 

FcrT™'(rTr6chDan"QProrX*NeWart!SCaw»enLrTtwr  _PK  Vakw  &  ~  &  '  And 
AMOS.FK  .  "  A  ForTTKtfrrrSchoolTcPrr^tjMaWartlAMOS.PK  Vaaie  A  ~  A  " 
And  Level  ■  '  &  ForimirrrnSchociTaPropLevaMaineChoaeTije^  4  "  4  ' 

UNON  SELECT  [LJmjpenvNaiTto.FK]  FFCM  LOG_SCH_PFCP  WHERE  SCaunjeMarrjeT.FK 


3100 
3101 
3102 
3103 
3104 
3105 
3106 
3107 
3108 
3109 


3115 
3116 
3117 
3118 
3119 


-  -  A  Farm^lrmS£focCTbPr<*ajeviatar<SC<^^  &  ~  & - 

And  AMOS.FK  -  "  &  Ferns' trm&chooroF^occevoMaifrfAMaS.PK  Value  &  ■ 
And  Level-  &  E<xTm'trrT&crcKftoPropL&**tertCtKmorij*xi&  " 
166      Fom»'tritSch<)onoFYc^evB»*uribbl.ewD  RowSource  -  s*SOL 


1 71  E/r_b*tevaU_Ceck 

172  MagBox  Err  Oescnpt on 

1 73  Resums  FjiLbM.eveM_Ctck 


183     bvjpfccoroHxn  -  Ma  CunerdFtocord 


187  r>)CTnlCperforrn-tmiSchrxiToProp<>«t*inr 

188  OoCmlGoToFtocard  acDatoForm.  'hmSchDdToPrapLeveMainr,  acGoTo, 
hBrtadrdMm 

189  FcrTO'tm\ichDoncF^a«jLo\«WoflirCna»enLowrt  .  5 
190 

191  '  Updato  he  astoctod  property  tat 

192  SSSOL  -  -SELECT  [FPrcpert/i*nto_FK|  FFCM  FLMJ.SCK.PFCP  WfCFE 
SCouraaMxrrjer.FK  -  "  & 

FQrrmMImS:rxxiiToPTopLfM*1flinr  Slaw  v>Mrrt«   Pf-  Value  4  ~  &  '  And 
AMOS.FK  .  "  &  Forne'frrrSchcorroPropLeveWMnBaAOS.PK  Vaije  &  -  &  ' 
And  Lavei  -  *  &  FarTn'trrT€xt*^oPro0LMnt*artCtoerijex*  &  "  &  * 
UMON  SELECT  [LPropertyNaiTO.FKl  FFCM  LCCSCH.PHOP  WhCPE  SCoursoNjrnber.FX 
•  "  4  ^rrrn'iTTT&Jxxtlo^opL^v^AMr^SCois^^kfTt^^^ak^  A  ~  &  * 
And  AMOS.FK  -  "  A  Forma!  rrrr6choryToPtopLavsfcUnCAMOS_PKVakie  A  ~  A 
And  Level-   A  Fc»TTB!rrrrScroc^oPropLev»MainCC*KK*ortjWrt  A  ~ 

193  Frrmi'lm&riaJTc^octeveiAa^PbLe^*  Ftow&ourne  -  ■tfSQL 


198  E/r_b%^evaC_Cack: 

199  MagBoK  Err  Doacnpkon 

200  Resurm  Fjitb0i.9ve6.ack 


210      r^FtocordrAxn-MBCurrenrflecord 

211 

212      DoCmdQoae 

213 

214  DoOmd  CpanForrn  •frmSchoonoPropLeve*tojnr 

215  DoCrnlGoToFtocord  acDatoForm.  *rrrr£chcon'oPrcpLeveMainr.  acGoTo. 
togFtocordNum 

216  F<}rrr^fm«choorroFvopLev»»*»rrtC^^ 
217 

218  Updato  tw  aetoctod  property  lal 

219  j»SO.  -  -SELECT  IrTmjperryNarw.FKJ  FPOM  FUMj.SCrLFflOP  WhEPE 
SCouraonLrnbor.FK  -  "  A 

tnrrre'ifrr^royTc^^jrxewwMHjnCSCoui itfirrt*,    PK  Vutue  &  ~  A  "  And 
AMOS.FK  -  "  A  Fomw'tf mScrwonc^opLeveWainP  AMCf:.    PV.  Value  A  ~  &  ' 
And  Level  -  *  A  F^rrna'trrrGchocT'orTopLe^vivlajneChOBer^uel  A  "  A  * 

UMON  SELECT  [LPraperVNwm.FKl  FFCM  LOG.SCH.PfCP  WFCPE  SCou/aoniar*)er_FK 
-  "  A  Fixirttm$axxn<frafijJi&torit$C<xnoftrtaJ>K-VakM  A  *"  A  * 
And  AMOS.FK  -  *  &  ForfTBv'frrr6croorToftQpL«vefctart  AMOS.FK  Value  A  ~  A 
And  Level  -   A  FurmV hmSchoo/Tc^opLoveWair^ax»r»»LPv«  A  " 

220  FcrTre'trmScrKxrflr>>ropU*c»A*ir.ebl.e«l?  FfcwtSourcei  -  STSOL 
221 


225  Err_b«rLewie_Cack: 

226  MagBox  En  Desenpaon 

227  Ftoaurre  Fjit_bMjnn£_Clck 


232  Prnato  Sub  orfcCouraeNurrtwFtfidJMBrLkxlatoO 
233 

234  Don  R  Aa  Recordaet 

235  Sat  R  -  Me  FtoccvdaetCbne 

236  RFtndFirat  -|SCcuaeNunrtnr_PK|  -  '  A  Chr(34)  A 
Mei[cn-tX^raaNurnbarFind1  A  Chr(34) 

237  Me  Bookmark  -  RBookrnarit 

238  MeUcrrtf^uraeMrnberFincrj  .  MJ 

239  Me  SCouraaNurnteT.PK-Sefocua 
240 

241  End  Sub 
242 

243  Prrvato  Sob  Fcrm_CurrentO 

244  OunstrSa_  strlnpuTi .  strlnpuC  As  Srmg 

245  Dan  inLevelAa  Integer 
246 

247  '  Updato  tw  Lewal  0 1st 

248  inLeval .  0 

249  aBSGL  -  'SELECT  (fTroperryNamo.FK]  FFCM  FUND.SCH.PRCP  WMEFC 
SCourasNurnber.FK  -  "  A  Ma  SCouraeNurnter.PK  Value  A  ~  A  '  And  AMOS.FK  - 

"  A  M».AMOS_PK,Vahja  A  ~  A  '  And  Level  .  '  A  nLevei  4  "  4  '  UMON 
SELECT  fLJmjpertyNBTO.FK)  FFCM  LOG_SCH_PROP  WrCRE  SCour aaNumber.FK  -  -  A 

Ma  SCouraaNurnber.PK  Value  A  -  A  *  And  AMOS.FK  -  ~  A  Me  AMOS.PK  Value 
A  *"  A  *  And  Level .  '  A  nLavcJ  A  ~ 

250  Mn.kLMdO  FtowSource  -  afSCL 
251 

252  Updato  he  Level  1  I  si 

253  mLevBl-  1 

254  a»Sa  -  •SELECT  [FFtopertyName.FKl  FFCM  FUND_SCH_PflOP  WHEFE 
SCouraaNunber.FK  -  "  A  Ma  SCouraeNurnber.PK  Value  A  "  A  *  And  AMOS.FK  - 

"AMbAMOS  FKValueA"A'AndL0vel--AnLevelA**A*UMON 
SELECT  ILPrepertyNarrie.FKl  FFCM  LCG_SCH_PFCP  WHERE  SCouraoNurnbor.FK  -  '  A 

M»SC<waeNurnber_PKValueA  "-  A  *  And  AMOS.FK  -  ■  A  Me  AMOS.PK  Value 
A  *"  A '  And  Level  -  '  A  nLevel  A  ~ 

255  Ma  bLevell  FkMBowoa  .  atSOL 
256 

257  ■  Updato  f»  Level  2 1st 

258  mt.evel-2 

259  ffrSOL  -  ■SELECT  [FFv^pertyNarna.FKl  FROM  FUND.SCH.PPCP  WHERE 
SCouraaNjrnber.FK  -  ~  A  Ma  SCouraa#4rrtor.PK  VaLn  A  -  A  '  And  AMOS.FK  . 

"  A  Ma  AMOS.PK.  Veto  A  "  A  "  And  Level  -  '  A  mLeval  A  ■  A  '  UMON 
SOECT  rLPrcpertyf*rr»  FK]  FROM  LCG.SCrL.PROP  WHERE  SCouraanlnfcer.FK  -  ■  A 
Me  SCourseNurnber  PK  Value  A  ■  A  *  And  AMOS.FK  .  ■  A  Me  AMOS.PK  Vaaie 


78 


3120 
3121 
3122 

3123 
3124 
3125 
3126 
3127 


3132 
3133 
3134 
3135 
3136 
3137 
3138 
3139 
3140 
3141 
3142 
3143 
3144 
3145 
3146 
3147 
3148 
3149 
3150 
3151 
31S2 
3153 
3154 
3155 
3156 
3157 
31SB 
3159 
3160 
3161 
3162 
3163 
3164 
3165 
3166 
3167 
3166 
3169 
3170 
3171 
3172 
3173 
3174 
3175 
3176 
3177 
3178 
3179 
3180 
3181 
3182 
3163 
3184 
3185 
3186 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3195 
3196 
3197 
3196 
3199 
3200 
3201 
3202 
3203 
3204 
3205 
3206 
3207 


3212 
3213 
3214 
3215 
3216 
3217 
3218 
3219 


3226 

3227 
3228 
3229 
3230 
3231 

3233 

3234 
3235 
3236 
3237 
3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
3246 
3247 
3248 


260 
261 

262  (rWLBVei=i  3 

263  s»SOL  -  'SELECT  [FPTOpertyName.FK]  FROM  FUND_SCH_PROP  WMERE 
SCourseNumber.FK  ■  -ft  Mb  SCourseMjnber.PK.  Value  &  "  4  ■  And  AMOS.FK  > 
~  &  Me-AMOS_PK  Value  4  "  4  '  And  Level  >  "  &  intLevel  4  "  4  '  UNION 

SELECT  [LPTopertyName.FKT,  FROM  LOG.SCH.PROP  W«RE  SCourseNurriber.FK  •  " 
Me  SCowseNumber.PK.  Value  4  ""  4  •  And  AMOS.FX  .  -  &  Me  AMOS.PK.  Value 
4  ■"  4  '  And  Level  .  '  4  IntLevaJ  4  " 

264  MebtLevaaPtoseSource- strSOL 
265 

266  intLevet  ■  4 

267  sfSQL  -  -SELECT  [Property  Name.  FK)  FROM  FUND_SCH_PFOP  WHERE 
SCourseNumber.FK  -  "  4  Me  SCoujseMsrtoer.PK. Value  4  ~  4  '  And  AMOS.FK  ■ 
~  4  Me-AMOS.PK.  Value  4  "  4  "  And  Level  =  ■  4  IntLevel  &  "  4  '  union 

SELECT  [LPropertyName.FKl,  FROM  LOG_SCH_PROP  WHERE  SCour se Number .FK  -  '" 
Me  SC*uJseNuTnber_PK.  Value  4  "  4  '  And  AMOS.FK  -  "  4  Me  -AMOS  _PK,  Value 
4  '"  4  '  And  Level  >  '  &  intLevel  4  " 

268  Me  btLeveM  RovvSource  -  strSOL 
26S 

270  intLevel  -  5 

271  sfSQL  -  'SELECT  [FPropertyName.FK]  FROM  FUND.SCH.PROP  WHERE 
SCourseNumber.FK  -  "  4  Me  SCoiaaefamber.PK.  Value  4  "  4  '  And  AMOS.FK  - 

■'  4  Me  AMOS.PK.  Value  4  ™  4  '  And  Level  =  '  4  IntLevel  4  "  4  *  UNION 
SELECT  [LPTOpertyName.FK]  FROM  LOG_SCH_PROP  WHERE  SCour  *et«»nber_FK  -  " 

Me.SCoureeNumber.PK  Value  4  *"  4  '  And  AMOS.FK  -  -  4  Me  AMOS.PK.  Value 
&***&  'And  Level-:  -4  IntLevel  4  " 

272  Me  btLevelS  RowSouice  -  s&SOL 
273 

274  intLevel  >  6 

275  strSOL  >  'SELECT  IFPtopertyName.FK]  FROM  FUND_SCM_PROP  WHERE 
SCourseNumber.FK  .  "  4  Me  SCouTseNumber.PK.  Value  4  "  4  -  And  AMOS.FK  > 
■'  4  Me  AMOS.PK.  Value  4  ™  4  '  And  Level  -  '  4  IntLevel  4  "  4  '  UNION 

SELECT  |LPTopertyNome_FKl  FROM  LOG.SCH.PROP  WHERE  SCouraeNumbef.FK  =  " 
Me  SCourseNumber.PK.  Value  4  ™  4  '  And  AMOS.FK  -4  Ms  AMOS.PK. Value 
&  ***  4  '  And  Level  ■  '  4  intLevel  4  " 

276  Me  LitLevete  RowSource  ■  ifSQL 
277 

278 

279  End  Sub 

Form  frmScrKOTToPropLeveWalnl 
Code 

1  Attribute  VB.Name  >  •FormJrTnSchoorroPropLeveWainr 

2  AWibute  VB.CreataWe  -  True 

3  ABHbute  VB.Predeclaredld  -  True 

4  AOibute  VB_E*»sed  a  False 

5  Option  Compare  Database 

6  Option  Exploit 


3250 
3251 
3252 
3253 
3254 
3255 
3256 
3257 
3258 
3259 
3260 
3261 
3262 
3263 
3264 
3265 
3266 
3267 
3268 
3269 
3270 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
3278 
3279 
3280 
3281 
3282 
3283 
3284 
3285 
3286 
3287 
3288 


FROM  orvUn»onA»Prooerty  LEFT  JOIN  aryUvonProporiy  By  Level  ON 
|07yUr*cnAIPropen>l  (FPtopertyNarne.PK)  e 
(qryUnonPropenVc^Levei]  |FPropertyName_FK]  WHERE 
([c^LhionPropertyByLevel]  [FPTopertyName.FK)  Is  Nufl).' 

75  Me  bfLeveJUnuaed  RowSouree  -  itrSGL 

76  '  Update  fie  selected  property  1st 

77  s»SOL  -  'SELECT  [F  Properly  Nome.  FKJ  FROM  FUND.SCH.PROP  WHERE 
SCourseNunfcer.FK  -  "  4  Me  SCouraeNumber.PK Value  4  "'  4  "  And  AMOS.FK  ■ 

■  4  Me  AMOS   PK.  Value  4  "  4  '  And  Level  -  '  4  Me  ChosenLeval  Value  4 
4  '  UMON  SELECT(LPropertyName_FK}  FROM  LOG.SCH.PROP  WHERE 
SCourseNumtw.FK  >  "  4  Me  SCourseNumber.PK.  Value  4  "  4  '  And  AMOS.FK  . 
*  4  Me  AMOS.PK.  Vol*  4  "  4  '  And  Level  >  '  4  Me  Cho senLevel  Value  4 


Dim  ngfieCcrdNum  A*  Long 
IngRecordNum  a  Me  CurrentFtocord 


17  DoCmd  OpenForm  "frmSchoofToPropertyMainr 

18  DoCmd  GoToRecord  acDataForm,  IrmSchoofToPropertyMainr,  acQoTo, 

hgRecordNum 


23  Err.btrOoae.CIck: 

24  MsgBox  Err  Description 

25  Resume  EjdLWnCbse_.C*o 


39  Err.btnDeleto.CicIc 

40  MsgBoi  Err  Description 

41  Resume  E»LWnDele(B_Ctek 


45   Private  Sub  CtosenLevaLAfterUpdakK) 

46 

47         Dim  srSOL  As  String 

48 

49  '  Update  the  potantkal  property  kst 

50  »»SOL  -  'SELECT  OISTINCTRCW  Ir^ryUriionAIPToperty]  |FPropertyName_PKl 
FROM  gryUnionAJPropeny  LEFT  JOIN  oTyUruonPropertyByLevel  ON 

lajvUnlonAlPTopertyl  [FPropertyl*me_PK)  - 
[qryUrtonPropertyBy  Level]  JFPropem/Name.FK]  WHERE 
((aTyUnlcnPropertySyLavari  [FPropertyName.FK]  Is  Nui).* 

51  Me  bILevelUnused  RowSource  ■  sfrSQL 

52  '  Update  the  selected  properly  tat 

53  sfSQL  -  *SELECT  [FProperty Name, FKJ  FROM  FUND_SCH_PROP  WHERE 
SCourseNumt>er_FK  -  *  &  Ma  SCourseNumber.PK.  Value  4  ~  4  '  And  AMOS.FK  - 
-  4  Me  .AMOS.PK.  Value  4  "  4  '  And  Level  -  '  4  Me.  ChosanLavaL Value  4 

4  '  UNION  SELECT  [Lf*opanyr*me_FK]  FROM  LOG_SCH_PROP  WHERE 
SCourasNumber.FK  -  "  4  Me.SCouraeNumbeT_PK Value  &  "  4  '  And  AMOS.FK  ■ 
"  4  Me  AMOS.PK.  Valus  4  ~4  '  And  Love.  =  '  &  Me  CrvoeenLeveLVeJue  4 

54  Ma  btLavBC  RowGource  a  sVSOL 


$8  Private  SubcrrbCouFwNurt**F,rxl  Aft» Upaaie.  ; 
59 

60  Dim  R  As  Recordset 

61  Set  R  -  Me  RecordselCtone 

62  RFindRrst  TSCouTseNumber.Ptq  ■  '  4  Ctv(34)  4 
Me<[crTt>CourseNljmberFind1  4  Chr{34) 

63  Mb  Bootorarti  «  RBoolrmarV 

64  MBlIcrnbCoursBNumberFind]  ■  Nut 

65  Me.SCouraeNuTTt>er_PK-S«tFocu3 
66 

67  End  Sub 

68 

69  Private  Sub  Form. Current() 

70 

71        Dim  sf  SOL  As  Smng 

72 

73  '  Update  the  potential  property  1st 

74  atSQL  >  'SELECT  DIST1NCTROW  [or^UnkjrvAJPropertyl  (FProparryNarne.PKl 


3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 
3308 
3309 
3310 
3311 
3312 
3313 
3314 
3315 
3316 
3317 
3318 
3319 
3320 
3321 
3322 
3323 
3324 
3325 

3327 
332B 
3329 
3330 
3331 
3332 
3333 
3334 


3340 
3341 
3342 
3343 
3344 
3345 
3346 
3347 
3348 
3349 
3350 
3351 
3352 
3353 
3354 
3355 
3356 
3357 


3362 
3363 
3364 
3365 
3366 
3367 
3368 
3369 
3370 
3371 
3372 
3373 
3374 
3375 
3376 
3377 
3378 
3379 


7B 


Ma  laiL-ver)  RowSourc*  -  sVSQL 


63  Private  Sub  LeflA/row.CBckO 

64  Dim  trm  As  Form.  cB  As  C0M0I 

65  Dim  wltm  As  Variant,  IntJ  As  Integer 
86        Dim  strSOL  As  String 


91  '  Tnu  code  enters  t»  selected  Target  MOS's  into  the  SCH.TGT.MOS 

92  Set  Irm  >  Forim!lrmScrvoo/ToPropLev»Wa,nt 

93  Setcl-trrrtlsILBVBtUnused 

94  For  Ea^JivorltnlncBltemsSelecaxI 

95  For  IntJ  a  0  To  ctLCoajtwCount  •  1 
96 

97  '  This  puts  the  value  found  in  the  1st  box  into  a  taxi  box. 
mailing  rt  readable  by  the  query 

98  ForrraltrrnSchoon^oPropLevelMaineTB/gefVaJue  Value  ■ 
el  CoajmnfinO  varl&n) 

99 

100  '  Disables  he  action  query  confirmation  message 

101  Applcaaon-SotOp&on  'CooftrmAclon  Queries'  False 

102  DoCmd. SefWamings  (False) 
103 

104  ■  Enters  he  voaje  Into  the  SCH.TGT.MOS  lawe 

105  DoCmd  OpanQuery  •qryUpda»»FUND_SCH_PROP* 

106  fJJoCmd OpanQuery  -qryUpdateLOG  SCH.PROP' 
107 

108  '  Enables  the  action  query  confirmaBon  message 

109  Apptcallon.SetOpQon  'Confirm  Acton  Quenes",  True 

110  DoCmd.  SefWarnlngs  (True) 


113      Nexlvarltm 
114 

115  '  Update  tM  potental  property  1st 

1 16  rtSQL  -  •SELECT  DISTINCTROW  [qryUreonAl Property )  [FPToperty^«vne_PK] 
FROM  qryUruonAProperty  LEFT  JON  oryuhionProperty  By  Level  ON 

[oryUntonAIPtoperTy]  [FPropertyName_PK)  ■ 
[qryUrtonPropertrByLevef)  [FPropertyName.FK]  Wh€RE 
([oryUnwnPrcoerlyByLevBfl  [FPropertyName.FK]  Is  Nufl!  ' 

117  Me.btLevaaJnused.RowSource  ■  strSOL 

118  '  UpdatB  the  sekBctad  property  tat 

119  stSOL  -  'SELECT IFPropertyf*me_FKl  FROM  FUND.SCH.PROP  WHERE 
SCourseNumber.FK  ■-  ft  Me  SCoureefOrber.PK. Value  4  -  4  "  And  AMOS.FK  - 
'  4  Ma  AMOS.  PK  Value  4  ™  4  "  And  Level  -  '  4  Me  ChosenLeval  Vakje  4 

4  '  UMON  SELECT  [LPropertyName.FK]  FROM  LOG.SCH.PROP  WHERE 
SCouraeNumber.FK  -  "  4  Me  S  Course  Number.  PrC  Value  4  "  4  '  And  AMOS.FK  ■ 
-  4  Me  amos.  PK  value  4  "  &  '  And  Level  -  '  4  Me  ChosenLeval  Value  4 

120  Me  tsrLeveD  RowSource  -  sfrSQL 
121 

122  End  Sub 
123 

124  Private  Sub  Ft ghtArTow_dclc() 

125  Dim  frm  As  Form,  cB  As  Control 

126  Dim  vmrlBTi  As  Variant  inn  As  Integer 

127  Dim  s»SQL  As  S*mg 
128 

129  '  This  code  Dates  the  salactad  Target  MOS's  and  its  associated 
enirie  s  ttom  the  SCH_TGT>*OS  table 

130  Set  trm  >  Formal  firnScnooTrjPropLavaWaint 

131  Set  c  t  ■  frMblLavaO 

132  For  EachvarltrilnctlllBmsSekKtBd 

133  For  mil  >  0  To  cB  ColumnCount  -  1 
134 

135  '  This  pub  tva  value  found  In  the  1st  box  Into  a  text  box. 
making  it  leadabie  by  the  query 

136  FormsltrmSchoryToProfX^tteValnBTa/gen/alue  Value  ■ 
cBCotjmryinfl.  varltm) 

137 

1 38  '  Disables  tie  action  query  confirmoBon  message 

139  ApplcaBon  SetOpBon  'Confirm  Aclon  Queries",  Fabe 

140  DoCmd  SeftrVarmngs  (Fabe) 

142  '  Deletes  Vie  record  associated  with  the  specified  value  from 
the  FUND  or  LOG  SCH. PROP  table 

143  DoCmd  OpenQuery  -oryDeleteFUND.SCH.PROP- 

144  DoCmd  CperOuery  ■oryDeletoLOQ.SCH.PROP' 
145 

146  '  Enables  the  action  query  confirmaBon  message 

147  ApplcaBon. SetOpbon  "Confirm  Acton  Queries".  True 

148  OoCmd  SefWarnmga  (Tru», 


152 

1  S3      '  Update  the  potanlal  properly  1st 

154  it  SOL  ■  'SELECT  DiSTINCTROW  (qry  UmonASProperTy  J  (FPrcvartyName.PK] 
FROM  qryLt>orv\Propariy  LEFT  JOIN  qryLtAranPrrjpertyByLeveJ  ON 

JqryUMonAIPToperty)  [FProrjertyNerne.PKl  ■ 
lon/UnKXiPropertyB/Levef]  [FPropertyName.FK)  WHERE 
(|07yUhlorv>opert/ByLevBrj.|FFTrjpr«^Nante_FK]  Is  Nuff).* 

155  Me.btLevarUnused  RowSource  -  strSQL 

156  '  Update  the  selected  property  1st 

157  strSOL  -  *SELECT  [FPToperty^avne.FKl  FROM  FUND.SCH.PFOP  WHERE 
SCourseNurrfeer.FK  ■  "  &  Me.SCourseN^rfcer.PK.  Value  4  ~  4  '  And  AMOS.FK  - 

'4  MeAMOS.PKValue4  ~  4  'And  Level-  '  4  Me  ChosenLeval  Value  4 
&  *  UMON  SELECT  [LProportyName.FK]  FRCM  LOG_SCH_PROP  WHERE 
SCourseNurnber.FK  ■  "  &  Me  S  Course  Nun***    Pk.  Value  4  "'  4  '  And  AMOS.FK  ■ 
"  4  Me  AMOS.  PK  Value  4  "  4  *  And  Level  -  '  4  Me  ChosenLeval  Value  4 

158  Ma  MjmB  RowSource  =  strSOL 
159 

160  End  Sub 

Form  frmScrubMarlne 
Code 

1  Attribute  VB.Name  ■  "Form_frmScr\*Marine" 

2  ASribult  VB.aeatablB  -  True 

3  An  .bote  VB.Predeclaradld  -  True 

4  ABTlbuta  VB.Exposed  -  Fabe 

5  Opflon  Compare  C 


79 


3381 
3382 

3383 
3384 

3386 
3387 
3388 


6     OpBon  Eipicli 


Open  specified  form 

stDocNome  ■  1rrnPi«pioc«sno&EjaBCiibon£iMthboarcl" 
CwCrrtiOpenFormstDocNarne  .  .  sfljnkCntoria 


3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3406 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 
3422 
3423 
3424 
3425 
3426 
3427 
3428 
3429 
3430 
3431 
3432 
3433 
3434 
3435 
3436 
3437 
3438 
3439 
3440 
3441 
3442 
3443 
3444 
3445 
3446 
3447 
3448 
3449 
3450 
3451 
3452 
3453 
3454 
3455 
3456 
3457 
3458 
3459 
3460 
3461 
3462 
3463 
3464 
3465 
3466 
3467 
3466 
3469 
3470 
3471 
3472 
3473 
3474 
3475 
3476 
3477 
3478 
3479 
3480 
3481 


3485 
3486 
3487 
3488 

3489 
3430 
3491 
3492 
3493 
3494 
3495 
3496 
3497 
3498 
3499 
3500 
3501 
3502 
3503 


Err_Cbse_Csck 

MsgBox  En  Descriptor! 
Resume  Ejd(_ Ctos»_C*c* 


30  PrlvBto  Sub  OTbPerRnd_AmrUpdatoO 
31 

32  Dim  R  As  Recordset 

33  Set  R  ■  Me  RecorrjaetCtone  ( 

34  RRndflrst  1.PEF]  a  '  &  Chr(34)  &  Me"[cmbPefRnd]  &  Chr(34) 

35  Me.Booterert- RBookmart 

36  MelcmbPeffind)  -  Nul 

37  Me  SSN_PK.SetFoeu3 
38 

39  End  Sub 

40 

41  PrrveteSubcrtt^Nfind>re*IJbdete<) 

42 

43  Dim  R  As  Recordset 

44  SetR-Me.RecordsetClone 

45  RFtndRrst  7SSN_PK]  .  '  &  Chrf  3J]  &  Me!|crrbSSNRnd]  &  Chr(34) 

46  MaBootjnerk- RBootorark 

47  StelcmOSS  Nhrxf]  ■  Nul 

48  Me  Close  SetFocus 


;rr_Deie»_Click_ 
MsgBox  Err. Description 
Resume  Ejci  .D*to».  Clc  h 


68  Prlwl*  Sub  Form_CurT«n10 

69  Dim  stSQL  As  Siring 
70 

71  ■  Update  the  PEF  Ust 

72  rtSQL  ■  'SELECT  DISTINCTROW  [MARjNE]  [PEF1FROM  MARlfvE  LEFT  JON  PEF 
ON  [MARINE!  [PEF|  -  [PEF)  [PEF_PK]WHER£  ([PEF]  (PEF_PKJ  Is  Njf)ORDER  BY 

73  Me  cmbPefRnd  RovvSource  >  str  SQL 
74 

75   End  Sub 

Form:  tnr<SpeclaIAss*gnmeni 
Cod* 

1  A»tbute  VB_Narne  -  'Fonri_rrTT£p«ct«iAss»gnm*nr 

2  aw .buto  VB.Creafabte  -  True 

3  ABibute  VB.PreOectBfedld  -  True 

4  Atribuk*  VB_Eie>o*ed  -  Pals* 

5  Option  Compare  Database 

6  Opeon  E**dt 
7 

8     Private  Sub  crntxaeasNumber  JUterUpdatoO 


Dim  srConvert  As  Sflng 


'  Convert  mo  fiscal  year  to  a  two  digit  number  lor  RD3  Rle 
■f  Convert  -  CSTfMe  crnbOaasNurnbef  Coamn(3)) 
stConven  a  FSghQstrConvert.  2) 
Me  WFY  a  Clnt(sirConvBrt) 


Me  WA4slgrYT**rrrrype  • 


24   Private  Sub  CTTt>CtossNumber_Enter(  i 

2S 

26         Dim  irSOL  AS  SStfvg 

27 

28  '  This  query  finds  (he  class  number  s.  report  dabs  and  class 
convening  dates  associated  vrtth  the  chosen  school 

29  itSQL-  "SELECT  BNA  .EXTRACT  Ctei»f*rrt». PK. 
BNA_ EXTRACT  CtessConvOate.  BNA^EXTRACT.  ReportDate. 

BNA_EXTRACT  RscalYear.PK.  8NA_EXTRACT  MCC  FROM  BNA_EXTRACT  INNER  JOIN 
SCH. TGT.MOS  CM  (BNA_ EXTRACT  CourseNumber    PK  . 
SCH  TGT  MQS  TCourseNurrber.FK)  AND  (6na  EXTRACT  TeroeMOS_PK  - 
SCH_TGT_MOS  TargeMOS.FK)  WHERE  Br4A_EXTRACT  CourseNurnber^PK  - 
FofTo'trmSpecialAaSiurTTvxn-CfT&^^i^^rnbei  AND  SCH  TGTMOS  AMOS.FK  - 
Forrml  IrrnScexaalAasignrnenCWAMOS  ' 

30  Me  crrtoCteasNurnber  PtowSource  -  strSQL 
31 

32  End  Sub 

33 

34  PTrvej»SubCfrbOMsaNurr»er>ntelJbtte%>() 

35 

36        MeMAMDS-  Me'ent>Coursaf*jrnDer  Cc*umn<1) 


40    Private  Sub  cmbSSN, After  Updated 


42  MeWSOI.MeJcrnbSSNC<*urnn(1) 

43  M»  MOredDete  .  MelcmbSSN  Cok*m(2) 

3505  44 

3506  45  End  Sub 

3507  46 

3508  47    Private  Sub  cmbSSN. Enter() 

3509  48 


3512 
3513 
3514 

3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
3523 
3524 
3525 

3527 
3528 
3529 
3530 
3531 
3532 
3533 
3534 
3535 
3536 
3537 
3538 
3S39 
3S40 
3S41 
3542 
3543 
3544 
3545 
3546 
3547 
3548 
3549 


3553 

3SS4 
3555 
3556 
3557 


3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3566 
3569 
3570 
3571 
3572 
3573 
3574 
3575 
3576 
3577 
3578 
3579 
3S80 


3583 
3564 

3585 
3586 

3587 


3593 
3594 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 
3609 
3610 


3615 

3616 
3617 
361B 
3619 
3620 
3621 
3622 
3623 
3624 
3625 
3626 
3627 
3628 
3629 
3630 
3631 
3632 


3637 
3638 
3639 


49        D>m  is  SQL  As  Str  rng 
SO 

51  StSOL  •  ■SELECT  DISTINCTROW  MARtNESSN_PK.  MARiNESOT 
MARINE  QradDate  FROM  MARINE  LEFT  JOIN  ASSIGNMENT  ON  MARINE  SSN.PK  ■ 
ASSIGNMENT  SSN_FK  WHERE  (((ASSIGNMENT  SSN_FK)  Is  Nul)).' 

52  Me  cmbSSN.  RomSource  -  sfrSQL 


56  PnwUBSubcmbSSNFind_AiterUpdato(! 
57 

58  Dim  R  As  Recordset 

59  Set  R  ■  Me  PecorotsetCtone 

60  RRndRrtt  TSSN_FK]  *  '  &  Chr(34)  &  Me'{cmbSSNFirK<|  &  Cnr(34) 

61  Me  Bookmark  a  RBoofcnwk 

62  Me'|  crnbSSNF-^ndl  -  Nul 

63  Me  Cbse  Seffocvrs 


77  ErT_Detoto_Clck: 

78  MsgBox  Err  Descrlplon 

79  Resume  Exit.  Delete  _C»cfc 


Dim  stDocName  As  SOing 
dm  sBJnkCrlavIa  As  String 


Open  specified  farm 

itDoeNeme  ■  'trmPTeprocessirie^EsBcufior^vvltohpoard' 
DoCmd.OpenForm  stDocName,  ,  .  sfljnkCrlteria 


99  Err_Cbse_Ctc*- 

100  MsgBox  Err  Descrlplon 

101  Resume  Fjdt_Ctose_Clck 


l05PTtvBto  Sub  Farm_CurTarrl() 

106 

107      '  Prevents  user  fromaccidenlaly  maMng  special  ass*gnmena  to 

marines  assigned  normasy 

106      If  l»Nul(Me  cmbSSN,  Value)  >  Fata*  Then 

109  Mei  cmbSSN  Enabled  >  False 

110  MelcmbCour seNumber  Enabted  >  FeJse 
ill  Me'crrtaOasshUTtoer  Enabled-  Fatse 


112 


for  tva  fundamental  equal  on 


Else 

Me'cmbSSN  Enabled  -  True 
Mefcrrt>CourseNLrnber  Enabted  *  True 
fvte'crrtOassNumber  Enabled  >  True 


123  Prrvste  Sub  Form_Open<  Cancel  As  integer) 


126     OoCmd  GoToRecord  acDeteForm.  TrmSpeciafAssle^nenr  acNewRec 


129  End  Sub 

Form  frmSpecialAsaignnvnOL^vsasignedManne 
Coda 
i      Attribute  VB.Name  ■  'Fonn_frri£pecialAssignmentOnjna3Sic^vacMttfine' 

2  A»ibu»  VB.Creefabte  >  True 

3  Attribute  VB_Predeclaredld  a  True 

4  Attribute  VB.Ejomsed  «  False 

5  Option  Compare  Database 

6  Option  Explclt 


8  Pr.vateSubcnTbClassNiirrt»r>nwLbdatei. 

9 

10       Dim  strConvert  As  Sting 

ii        f>m  st/SSN  As  String 

12        Dim  R  As  Recordset 


Convert  the  fiscal  year  to  a  ten  cacat  number  tor  RD3  Rte 
ir Convert  .  CS»(Meerrt>CtessNumber  Cc4jmn(3)) 

•rComart  •  Rgnn  str  Convert.  2) 
Me  QdFY  .  Cln«  it/Convert) 

Me  WAss^gnmentType  -  ■?■ 


Me  blAMOS  ■  Ma'cmbCouf  seNumber  Cokim(l) 

Lpdatee  the  current  form  and  subform 
MeRaquary 
Ms  Reps  nf 

'  Movaa  fne  record  back  to  me  current  SSN 

Set  R  -  Me  RsKcrdstetOone 

RRndRrtt  '[SSN  FK]  .  '  &  Cnr(34)  A  sf/SSN  &  Chr(34) 

MeBookmar*.  RBcokmart 


40  PnvateSubcmbCetesna«Ttoer.Eritar() 

41 

42        Dim  ssSQL  As  Str  irv 


80 


3642 
3643 
3644 
3645 
3646 
3647 
3646 
3649 
3650 
3651 
3652 
3653 
3654 
36S5 
3656 
3657 
365S 
3659 
3660 
3661 
3662 
3663 
3664 
3665 
3666 
3667 
3666 
3669 
3670 
3671 
3672 
3673 
3674 
3675 
3676 
3677 
3678 
3679 
3680 
3681 
3682 
3683 
3684 
3685 
3686 
3687 


3700 
3701 
3702 
3703 
3704 
3705 
3706 
3707 
3708 
3709 
3710 
3711 
3712 
3713 
3714 
3715 
3716 
3717 
3718 
3719 
3720 
3721 
3722 
3723 
3724 
3725 
3726 
3727 
3726 
3729 
3730 
3731 
3732 
3733 
3734 
3735 
3736 
3737 
3738 
3739 
3740 
3741 
3742 
3743 
3744 
3745 
3746 
3747 
3748 
3749 
3750 
3751 
3752 
3753 
3754 
3755 
3756 
3757 
3758 
37S9 
3760 
3761 
3762 
3763 
3764 
3765 
3766 
3767 
3766 
3769 


44  '  This  query  *"***  "*  C>0M  numbers,  report  dates  and  class 
convening  dates  associate]  with  lha  choeen  school 

45  StrSOL  •  'SELECT  BNA_  EXTRACT.  CtosshUnber.PK. 
BNA^EXTRACT  ClassConvOate.  BNV  EXTRACT  ReportDete, 

BNA^EXTRACTRscatYaar^PK.  BNA.  EXTRACT.  MCC  FROM  BMA.EXTRACT  IWER  JC*N 
SCH_TGT_M0S  ON  (BNA_EXTRACT,CourseNumber_PK  • 

SCH.TGT  MOS.TCoursar**rt»r_FK)  AND  (BN\,EXTRACT  Ta/0»WOS_PK  • 
SCH_TGt>CS  TargeMOS.FK)  WHIFE  BNA_EXTRACT  Course Numt»r_PK  - 
foiriulfni^peaalAj^c^mentOfUruusiojw  AND 

SCH.TGT_MOS.AMOS.FK  - 

46  MecmoClaasNurnber  RowSource -  atrSCL 
47 

48   End  Sub 

49 

50    Private  Sub  CTr*Cours*NurTfter_AnefUpd8te{) 


strSSN-MacmbSSN 


Me  t-AMOS  -  Melcrr*>Cc^saNurr^r.Colurm(  1  > 

'  Updates  We  current  form  and  subform 
MaJtoquMy 

Me.  Repaint 

'  Mows  Ihe  record  back  to  (he  current  SSn 

SetR-MaRecordsetCtone 

RFlndRrsl  '(SSN_FK)  -  "  &  Chr<34)  &  strSSN  &  Chr(34) 

Me  Bookmark  -  R  Bookmark 


End  Sub 

Private  Sub  crnbSSNJUtarUpdatoO 


78    End  Sub 

79 

80   Private  Sub  cmbSSN.EnMrt.) 

81 

82        Dim  strSOL  As  String 

83 

84        strSOL  -  'SELECT  DtSTINCTROW  MAHNE.SSN_PK.  MARNE.SOI. 

MAFJNE.GradDate  FRCM  MARINE  LEFT  JOIN  ASSIGNMENT  ON  MAFINE.SSN.PK  - 

ASSIGNMENT  SSN_FK  WHERE  ({(ASSIGNMENT.SSN.FK)  Is  Nul))," 

65        Me.cmbSSN.FIovvSource  -  strSOL 


89    Pnvffls  SubcrnbSSNFind_.AnerUpo_Wj 
90 

91  Dim  R  As  Ftocordset 

92  Set  R  .  Me  FtecordsatCtone 

93  RFindfirst  '[SSN.FK]  *  '  A  Chr(34)  A  Me»[cmbSSNFrno1  &  Chr(34) 

94  Me. Bookmark  .  FLBoofcmeik 

95  Me![cmbSSNFInd]  •  Nul 

96  Me  Ctose.Seffocus 


3770 
3771 
3772 
3773 
3774 
3775 
3776 
3777 
3778 
3779 
3780 
3781 
37B2 
3783 
3784 
3785 
3786 
3787 
3788 
3789 
3790 
3791 
3792 
3793 
3794 
3795 
3796 
3797 
3798 
3799 


3602 
3603 
3804 
3805 
3806 
3807 
3808 


3812 
3813 
3814 
3815 
3816 
3817 
3818 
3819 
3820 
3821 
3822 
3823 
3824 


3832 
3833 
3834 
3835 


1l0Err_Detote_Cick: 

ill      MsgBox  Err.D*scrtpOon 

112      Rnume  EjdLDalaiB.Ctck 


125ErT_Ctoae_Clck: 

126  MsgBox  Err.  Description 

127  Rasuma  Exit_Cto*e_ Click 


131  Private  Sub  Form_Current() 


Me'cmbSSN.EnablBd  -  True 
MalcmbCoursaNumbar  Enabled  -  True 
Melcn^OassNurnbar.Enobiad  -  True 


141  Private  Sub  Form_Opan( Cancer  As  Integer) 


147  End  Sub 

Form  frmLhassignedMannes 
Coda 
i      Attribute  VB_Name  -  'Fom^'mriUnassignaoWanries' 

2  Attibute  VB.Croatabte  •  True 

3  Attribute  VB.Predeclored'd  -  True 

4  AOrtbute  VB.Exposed  -  Falsa 

5  Option  Compare  Database 

6  Option  Ejptcit 


'  Close  lha  currant  form 

DoCmd  Close 

'  Open  specified  form 

slDocName  -  'frmAnafyzePesurr 

DoCmdCpanFormsOocNome,  .  .  stLlnkCrttena 


irT.Ctoae.CSck: 
MsgBox  E  rr  Dasc  rtptkxi 
Resume  FJdLCbsa_Clck 


29  PnvBteSubcrnbSSNRnd>rterUpdata{} 
30 

31  Dm  R  As  Recordset 

32  Sat  R  •  Me  FtocordsetCtone 

33  RFlrv-Rrst  '[SSN.PK]  -  '  &  Chr{34)  &  K 

34  Ma  Bookmark  *  Ft  Bcokmert 

35  Me'IcmbSSNFInd]  -  Nul 

36  Ma.Ctose  SeFccus 


>![cmbSSNFind]  &  Chr(34j 


40  PnvBte  Sub  Form_Current() 
41 

42  Dim  strSOL  As  String 

43  Dim  rec  As  Ftocordset 

44  Dimdbi  As  Database 
45 

46  Satdbi-CurrentDbO 


lumbar  of  urvasslgned  marines. 

49  strSOL  -  "SELECT  CounQPEF)  AS  TotalUnaoslgnad  FRCM 

50  Sal  rec  -  dbl.OpanRacoroael(sfrSQL.  dbCpenSnapshol) 

51  MaMTotr^Urussslc^vsd-reclTot-IUvsssjojvad 
52 

53  End  Sub 

54  Private  Sub  Wn Assign.  On:.kf , 

55  On  Error  GoTo  ErT_btnAas(gn_Cick 
56 

57        Dim  stDocNama  As  String 

SB 

S9        stDocfteme  -  'ffTnSpectalAssio/YTienrC4Una3sigrtec*Vtvine' 

60 

61        DoCmdOpanForm  sCocNome 


66  En_bBiAssign_C»ck: 

67  MsgBox  Err  Descnptton 

68  Rasuma  EjflLbtnAssign.Cicli 
69 

70  End  Sub 

Form;  suWrrnFurvaamBntalProparTy 
Coda 

1  Attribute  VB.Name  -  'Fom\.subfrmFij>tarT»nrafProperty' 

2  Attribute  VB  _  Creatabto  *  True 

3  Attribute  VB.Predoclaredld  -  True 

4  Attribute  VB  ..Exposed  -  Fatse 

5  Option  Compare  Database 

6  Opaon  Exploit 

7  PrtvBte  Sub  cmbVarue_FKJVterUpdate{) 
8 

9         FormslfrmF undamanteXP rope r1y'[F Property Nome^PK]  SelFocus 


3842 
3843 
3844 
3845 
3846 
3847 
3848 
3849 
3850 
3851 
3852 
38S3 
3854 
3855 
3856 
38S7 


3862 
3863 
3864 
3865 


3872 
3873 
3874 
3875 
3876 
3877 
3878 
3879 


3882 
3883 
3884 

3885 
3886 
3887 
3888 
3889 


13    Private  Sub  cn»Varue_FK_BeloreUpdote< Cancel  As  Integer) 
IS       On  Error  GoTo  Err_cmiWa»te_FK_Be'oreUpdate 


17  DlmdbAsC 

18  Dim  rec  As  Records* 

19  Dim  strSOL  As  String 

20  Dim  Convert  As  Variant 
21 

22  '  Places  value  in  a  form  agreeable  to  Access  (eg.  'HT  or  'iff) 

23  Convart  -  ~"  A 

Forrns'fnrifundamantBiPropartylsubfrmFurvdarTienOJProper^  &  " 

24 

25  ■  Opens  We  taste  PROPERTY  .VALUE 

26  strSOL  -  •PROPERTY_VALUE- 

27  Satdb*CurranrDo{) 

28  Sat  rec  -  <t>  OpenRecorQset(  strSOL  dbOpanSnapshot) 


42  '  Updates  r*e  drop  down  1st  tor  the  combobox 

43  strSOL  -  "SELECT  OISTINCT '  & 
ForrrrsMrmAsnda^anrafPrc^ar^'MmhnaFialda'  FROM  MARINE,' 


'  Enables  tve  action  quary  confirmation  massage 
Appkcatjon.  SerOplon  'Confirm  Ac  Bon  Queries',  True 
End  If 


Dim  stDocNama  As  String 
Dim  sajnkCritorla  As  Sblng 


55  ErT_cmbVafeja.FK_BaforeUpdate 

3890  56       MsgBox  Err.  Dasc  ripfton 

3891  57        AppacaSoaSatOplon  'Confirm  Action  Queries*.  True 
3832  58        Rasuma  ExILcmbVakje  FrCBeloreUpdate 

3893  59 

38S4  60  End  Sub 

3895 

3896 

3897  Form  submr^undonwitjtfPropartyList 

3898  Coda 

3899  i      ABIbute  VB.Name-  *FcHm_sublrTnFurxtejTiantoJPrcciaftyLisr 


81 


3903 
3904 
3905 


3912 
3913 
3914 
391 S 
3916 


3937 
3938 
3939 
3940 
3941 
39*2 
3943 
3944 


3952 
3953 
39S4 
3955 
3966 


3961 
3962 
3963 
3964 
3965 
3966 
3967 


3972 
3973 
3974 
3975 
3976 
3977 


3963 
3964 
3965 


3993 
3994 
3995 


3998 
3999 
4000 


4005 
4006 

4007 
4006 
4009 
4010 


4015 
4016 
4017 
4016 
4019 


4022 
4023 
4024 
4025 
4026 
4027 
4028 
4029 


Attribute  VB.Creatabie  .  True 
Attnbute  VB_Predec  tared!  d  -  True 
Attribute  VB_  Exceed  -  Fabe 
Opton  Compare  Database 
Opion  Elicit 

Pnvnte  Sub  cmt>VaK*_FK.  EWrofsUpdowCancal  As  Integer) 
On  Error  GoTo  Err_cn*Vfllu*_FK_B«ro™UpdalB 

Dim  db  As  Database 
Dim  roc  As  Recordset 
Dim  strSQt  As  Stnng 
Dim  Convert  As  Vannni 


'  Places  value  in  s  form  agreeable  Id  Access  (e.g.  XT  or  '17) 
Convert-  ""  4  Formsl[suWrTTiFi*vdam8nlBlPropartyJ!cmbVolia_FK4 
'  Opens  the  tabs  PROPERTY  VALUE 
strSQL  -  'PFCPERTY.VALUE' 

Set  db  -  CurrentDb<) 

Set  rec  -  db  OpenflecordseflstrSOL.  dbOpenSnapahot) 

rec  RrvdF.rat  *Vabje_PK  a  '  &  Convert 

II  rec.NoMatoh  -  True  Then 

'  Disables  (he  action  query  conftrmaton  message 
Appicason  SetOpbon  'Confirm  Acton  Quenea*.  Fatee 

DoCmd.OpenQuery  'qryUDdeto  Property  Value* 
•trSQL  -  'SELECT  DISTINCT *  & 
ilfrmFHirvdajnentalProper-ylMahnePield  &  '  FROM  MARINE. " 
Me.cmbVakje_FKFk>wSource  -  strSOL 

'  Enables  the  acton  query  confirmation  message 
Appicatton  SetCption  'Confirm  Acton  Queries'.  True 

End  If 


50  Err_errtoValue_FK_BeforeUpdate 

51  MagBox  Err.  Description 

52  Appicator\Se«Dpton  'Confirm  Acton  Queries'.  True 

53  Resume  E»t_cmbV»jj«_FK_BeloreUpaate 


S6   EndSub 


On 


i  db  As  Database 
i  rec  As  Recordset 
i  strSQL  As  String 
l  Convert  As  Variant 

it  lorm  egret 


o  to  Access  (eg.  *HT  c 


65  '  Places  value  in 

66  Convert  -  *~  & 

ForrralfrTTvFundan-vsnBilPrrjpertylsuU  " 

67  Opens  the  table  PROPERTY  VALUE 
66  strSQL  -  'PROPEFOY  VALUE' 

69 

70  Set  db  -  CurrentDb<) 

71  Set  rec  •  db.OpenFlecordae*(strSQt-  dbOpenSnapahot) 
72 

73  rec  FindFi rat  *VaJue_PK-'&  Convert 

74  '  This  If  Then  statement  checks  to  aee  if  the  entered  value  is  in 

75  '  PROPERTY. VALUE  table.  If  not,  il  is  added  b  the  table. 

76  If  rec.  NoMac  n  -  True  Then 

77  '  Disable!  tva  acton  query  confirmaton  message 

78  AppleaBon.SetDption  'Confirm  Acton  Queries'.  False 
79 

80  DoCmd  CpenQuerv  -q^UrjdateProcwTy.  Valuebsr 

B1 

82  '  Enables  the  acton  query  confirmaton  message 

63  Apptcatjon.SetOpbon  'Confirm  Acton  Queries".  True 

84  End  If 


En_VeJue_FK^BetoreUpdate 
MagBox  Err.Descnpbon 

AppfccatonSetDpoon  'Confirm  Acton  Queries',  True 
Resume  EjoLVaJue_FK_  Before  Update 


4030 
4031 
4032 
4033 
4034 
4035 
4036 
4037 
4036 


4045 
4046 
4047 
4046 
4049 
4050 
4051 
4052 
4053 
4054 
4055 
4056 
4057 
4058 
4059 
4060 
4061 
4062 
4063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4071 
4072 
4073 
4074 
4075 
4076 
4077 
4078 
4079 
4080 
4061 
4082 
4083 
4064 
408$ 
4086 
4087 
4088 
4089 
4090 
4091 
4092 
4093 
4094 
4095 
4096 
4097 


4100 
4101 
4102 
4103 
4104 
4105 
4106 
4107 
4108 
4109 
4110 
4111 
4112 
4113 
4114 
4115 
4116 
4117 


4120 
4121 
4122 


Module  rnodFirve  it  Determine bon 
Coda 

i      Attribute  V8._Name  -  'modFlneasDeterrrinaton' 

2  Oplon  Compare  Database 

3  Oplon  fjpicii 
4 

5     Drm  IngStert.  b>g£nd  As  Long 


6  Pubic  function  RjndPropTesti'FundPropName  As  String.  SSN  As  String)  As 
9 

10  Dim  rec  As  Recordset  rec2  As  Recordeel  rec3  As  Hacordael 

11  Dim  strMarfieti  As  String.  sfrFundOperator  As  String.  strSQL  As 

12  Dim  BtrMarVaJueSQL  As  Strmg.  strFundVesjeSQL  As  Stnng.  sttlnput  As 

13  Dim  vsrFundVafcje,  varMarValue 

14  Dim dbi  As  Database 
IS 

16  FundPropNarne  -  ""  4  FundPropName  4  "'        "Thia  expression 

property  formates  Ova  argument  FundPropKkeme,  by  placing  a  '  in  front  of 

and  behind  the  value  found  n  FundPropNarne 

17 

16  Set  dbi  -  CunentDbO 

19 

20  strSQL  •  'SELECT MenneField,  Operator  FROM  FUrCAMEMTAL.  PROPERTY 
WHERE  FPtopertyName_PK  .  •  4  FundTmspName 

21  Set  rec  -  dbi  Open  Recordset,  crSQL,  dbOpenSnapshofl 

22  itrMarfteld  -  rec*ManneFieU 
23 

24  strfundOpenitor  -  reetOperalor 


4134 
4135 
4136 
4137 


USD 
4151 
4152 
41S3 
4154 
4155 
4156 
4157 


27  strlnput  -  "  4  SSN  4  " 

28  strMarVaiJaSQL  •  'SELECT '  4  urMo'ReW  4  '  AS  [Value]  FROM  MARINE 
WHERE  SSN.PK  .  '  &  stflnput 

29  Set  rec2  -  dbl.CpenRacordsegsgtArValueSQL,  dbOpenSnapahorj 

30  varMarValue  -  recZVeJue 
31 

32  strF undValueSQL  -  'SELECT  Value.FK  FROM  FUND.PPOP.VAL  WHERE 
FPropertyhtame.FK  -  '  4  FundPropNarne 

33  Set  rec3  -  dbi  Clr^Ftocordaet^FundVaJueSOL  dbOpenSnapshot; 

34  varFundValue  >  rec3iValue_FK 
35 

36  '  Convert  VBrFundValue  and  varMarValue  toanumenc.  if  possible 

37  If  l*J*«me<vejfundValue)  And  lsNijmenc(vmrMarValue)  Than 

38  vorf  undVaJue  -  CInBvarFundValue.. 

39  varMarVeJue  -  Clnt(varMarVajje) 

40  Ebe 

41  vorfundVaije  -  CStrfva/fundValue) 

42  vmrMarVeue  -  CStrlvarMarVakje) 

43  End  If 


Select  Case  stFundOperator 
Case'-" 

If  vejMarVeJue  -  varFundVaaje  Then 

FundPropTest  ■  True 
End  If 
Case 'not** 

II  varMarValue  <>  varFundValue  Then 

FundPropTest  -  True 
End  If 
CaaaV 

If  VBrMmrValue  <  varFundVatoe  Then 

FundPropTest  ■  True 
End  If 
CaaaV 

II  varMarValue  >  varFundValue  Then 

FundPropTest  ■  True 
End  If 
CaseW 

II  varMarValue  <-  verFundVakja  Then 

FundPropTest  ■  True 
End  If 
Caee'>-' 

If  varMarValue  »  varFundValue  Then 

FundPropTest  -  True 
End  It 
Case 'm' 

Do  Urtll  rec3  EOF 

varFundValue  .  rec3!Vek»e_FK 

If  I  srejmBnci.varF  jTdVakje)  And  I »Numenc( varMarValue) 
varfundVakja  -  Cine  varFundValue  i 
varMarValue  ■  ClnQva/MarVeJue) 


Ebe 


If  varMarValue  > 

varFundValue  Then 

FundPropTes 

•  True 

End  11 

rec3.  Move  Nan 

Loop 

End  Select 

rec2.Ctose 

rerJ.Ctose 

dbi  Close 

90  End  Function 

91  Pubic  Funeton  LogOrTestflnputi  As  Boolean  input  As  Boolean)  As 


99   Pubic  Function  LogAndTesQIrvputl  As  Boolean  InpuQ  As  Boolean)  As 
100 

101  If  Inputl  And  InpuC  Then 

102  LogAndTeat-Tnte 

103  Ebe:  LogAnoTTasl  ■  False 

104  End  If 
105 

106  End  Funeton 

107  Pubic  Funeton  LogPropTeu'LogPropName  As  Stnng,  SSN  As  Stnng)  As 

108  Dim  intretwUBound  As  Integer.  ,  As  Integer,  k  As  Integer.  I  At 
Integer,  m  As  Integer 

109  Dim  booOrOperator  As  Boolean,  booArtcCperator  As  Boolean 
booNolOperator  As  Boolean 

1 10  Dim  strLogicalEquaton  As  Stnng.  strSQL  As  Stnng.  strlnput  As 

111  f>ms*rWorkngEqn()  As  Stnng 

1 12  Dim  mtSpecePoe  As  Integer       '  poabon  of  the  space 

113  Dim  dbi  As  Database 

1 14  Dim  rec  As  Recordset 
11S 

116      Set  dbi  *  CurrenrDbO 

117 

1 16      "  Get  the  toctcal  equation  Irom  the  LOaCAL_PROPERTY  tebb 

1 19  strlnput  -  *~  4  LogProprNewne  4  ~ 

1 20  strSQL  -  'SELECT  LogceJEquanon  FROM  LOGICAL_PRDPERTY  WHERE 
LPropertyName_PK  .  '  4  stlnput  4  "* 

121  Set  nsc  -  dbi  Openf)ecordse-(strSQL.  dbOpenSnapshol) 
strLogiceJEquaton  *  reel  LogrcalEquaton 


'23 
124 


IX 


'  Parse  tie  ttnng  into  an  array 

'  declare  the  temporary  string  as  an  array 

ReDim  sfrWCKtangEgnfO)  As  Stnng 

'  Find  the  poaiton  of  the  first  space 

rrtrSpacePos  -  InStlstLogiceiEQualon. '  *l 

'  loop  unll  no  more  spaces  are  found 

'  InSt  returns  0  if  the  space  is  not  found 

Do  Unbl  mtSpocePos  -  0 

'  redimension  the  array  adding  another  element 

'  UBound  tab  us  how  many  aJemants  tvare  efreedy  are  m  r 

RaDtm  F'raearva  *lrWonorig£qn(tjecunaXstrWonVjrig£qn)  * 


137  '  set  the  new  element  to  the  characters  from  the  beginning  of  tv» 

138  '  stnng  up  to  the  first  space.    Lartl  reUms  a  number  of 

139  '  from  the  beginning  ol  a  itong 

140  strWonvjngEvvlUBoundlstrWorkingEon))  - 
TrirnS4LertS<strLogKaIEquaeon.  in£pacePoe  •  1)) 
141 

142  '  now  wave  copied  tvaea  characters  rito  the  name,  they  can  be 


removed  from  the  ongirval  stnng    FsgMS  nsajms  a  number  o 
■  characters  from  tie  end  ol  the  stnng    11  is  tva  nghtmoat  N 


82 


4160 
4161 
4162 
4)63 
4164 
4165 
4166 
4167 


4170 
4171 
4172 
4t73 
4174 
4175 
4176 
4177 
4178 
4179 
41B0 
41  Bl 
4182 
4163 
4184 
4165 
4186 
4187 


4191 
4192 
4193 
4194 
4195 
4196 
4197 
4198 
4199 
4200 
4201 
4202 
4203 
4204 
420S 
4206 
4207 
4208 
4209 
4210 
4211 
4212 
4213 
4214 
4215 
4216 
4217 
4218 
4219 
4220 
4221 
4222 
4223 
4224 
4225 
4226 
4227 
4228 
4229 
42X 
4231 
4232 
4233 
4234 
4235 
4236 
4237 
4238 
4239 
4240 
4241 
4242 
4243 
4244 
4245 
4246 
4247 
4248 
4249 
4250 
4251 
4252 
4253 
4254 
42SS 
4256 
4257 
4258 
4259 
4260 
4261 
4262 
4263 
4264 
4265 
4266 
4267 
4268 
4269 
4270 
4271 
4272 
4273 
4274 
4275 
4276 
4277 
4278 
4279 
4280 
4281 
4282 
4283 
4264 
4285 
4286 
4287 


147  s»LorjcalEqua&on  -  LTnrrdyFtghtfcmogKiiE  rattan 

LwmtLorjcalfcguaacn!  .  mCSpacePcep'i 

148 

149  *  find  the  nert  space 

150  mlSpecePos  -  InStfatrtoojcatEqualon.  *  *) 

151  Loop 


157  For  k  -  (j  ♦  1)  To  (UBounoXstrWcrtangeoT'}) 

158  Setecl  Case  strWcrkmgEqnfk) 

159  Case  V 

160  For  l.(j*  1)To{k-l) 

161  Setecl  C*»  strWoriangEqnf.*) 

162  Cue  -CT 

163  booCrOperatar  .  True 

164  Case 'And* 

1 65  booAndOperabr  -  True 

166  CaseTbT 

167  bcoNblCperator  ■  True 

168  Case  True' 

169  II  stWwtongEt-nfJ  -  T  Then 

170  II  booNofCperator  Then 

171  strWorkingEqn(j)  .  "Fabe" 

172  booNolOperaer  .  Fabe 

173  Et» 

174  atrWorfangEortj)  -  True" 

175  End  II 

176  Else     '  Eje-cutod  after  the  first 
bracketed  property  is  tested  and  stored  in  (he  locaton  of  *f 

177  II  booftofCperatrgr  Then 
strWortangEqn(l)  -  'Fabe' 
boor\tofOperator  .  False 


179 
180 


End  II 


it  booCrOperator  Then 

182  s»WortongE<-n(j)  - 
LcxT^TmnCBooH^tWcrtanQtcKi):   C8ccl(3*WortongEqn(f))) 

183  booCrOperator  -  Fabe 

184  Ebelf  booAndCperaCr  Then 

185  strWorfcngEqn(j)  - 
LooA<n"est(C6oc«sttVVorlgngEqryj))   C8ook;strWorking£qn<l))} 
106  booAndOperalo>  -  Fabe 

187  End  If 

188  End K 

189  Case  'Fabe' 

190  II  sa-WorfcrngEtsTlj)  -  '('  Then 

191  II  boorNbtOperator  Then 

192  sftWorioneEqnQ  -  True' 
boc*totOperatar  •  Fabe 


15M 


bracketed  property  i- 


200 
201 


sSrWcrlQng&yVjj  .  "Fabe' 
EndlT 
Ebe     '  Executed  altar  the  first 
d  and  stored  in  the  beaten  of  T 
II  boorNbtCperakv  Then 
strWortangEcayil  -  Tna»" 
boohbtOperafex  -  Fabe 
End  If 


II  booCrOperator  Then 

203  s&WorkingEqntJ  - 
LogjOTestlCBool(s»WorkingEQjXJ)).  C8cot(s»WonongEqn<l))) 

204  booCrOperator  .  Fabe 

205  Ebelf  booAndOperator  Then 

206  s&WongngEqnQ  - 
LogAnoTes«C8oo«s&WorlangEqn(i)).  CBooifstrWorkmgEqryi))) 

207  booAndCperator  -  Fabe 
206                                            End  If 

209  End  II 

210  Case*)*      Do  nothing 

211  Case  Ebe 

212  If  sJrWorkingEcjrKj)  -  T  Then 

21 3  If  booNotOperator  Then 

21 4  tt Wor kingEqrHi)  -  Not 

{FunrJFVopTeststrWorktngEojy*}.  SSN» 

booNotOperator  .  Fabe 


216 


218 


Ebe 


End  If 


'  Ewcubd  after  the  first 
bracketed  property  is  tested  and  stored  m  Che  focakon  of  *(' 

220  If  booNotOperator  Then 

221  strWorkingEcrH')  -  Not 
{FundFyopTes<strWorkingEojn(r).  SSN)) 

brjr^uOperater  -  Fabe 


223 


Ebe 


StrWorlungEqn(l)  - 
FundPropTesl(sffWor>ongEqrt(r),  SSN) 

225  End  It 

226  If  booCrOperator  Then 

227  strWonongEqnG  - 
LrjgOTest(C8ool(s-rWorkingEqn(j)),  C8ool(s»WortgngEqn/I))5 

228  booCrOperator  -  Fabe 

229  Ebelf  booAndCperator  Then 

230  s&WortangEortj)  - 
LogAnoTeaflC8ooKsffWortong£qn<al)-  CBooHstrWorkmgEortf))) 

231  booAndOperator  -  Fabe 

232  End  II 

233  End  If 


234 
235 


243 
244 

245 


EndS 
Nsjtl 


.nt-tewUBound  -  LBounaXstrWorkmgErsn)  ■  ( k  -  jj 
If  rntNswfJBoinJ  o  1  Then 

FeChm  rt  Transtarrred£qn(  1  To  mNewLBound) 

For  m-  1  To  j 

stTranstormedEq-ym)  -  sfrWorkmgEqrVm) 
Natfm 


For  m  -  (k  +  1)  To  IJBoureJ(strWorkingErji) 

246  stTransformedEqn(m  ■  k  -  j)  . 

247  Nntm 

246  ReOim  s»  Wortar^Eqni  1  To  inNswUBcuncf) 

249  For  m  -  1  To  intNewUBound 

250  s-rWonongEartml  -  strTranstormodEartm) 

251  Nwam 

252  j  -  1    "Set  |  back  to  a  «uue  of  1 

253  GoTobnel     'Jumps  beck  to  For  f*  1  to 
(UBounoX  st  W  orfongEoTiJIoop 


254 

255 


Ebe 

LogPropTesl  -  s»WortongEqn<i) 
Erase  strWortongEqn 
Erase  stTranslorrnedEqn 


4290 

4291 
4292 
4293 
4294 
4295 
4296 
4297 
4298 
4299 
4300 
4301 
4302 
4303 
4304 
4305 
4306 
4307 
4306 
4309 
4310 
4311 
4312 
4313 
4314 
4315 
4316 
4317 
4316 
4319 
4320 
4321 
4322 
4323 
4324 
4325 
4326 
4327 
4328 
4329 
4330 
4331 
4332 
4333 
4334 
4335 
4336 
4337 
4338 
4339 
4340 
4341 
4342 
4343 
4344 
4345 
4346 
4347 
4348 
4349 
4350 
4351 
4352 
4353 
4354 
4355 
4356 
4357 
4368 
4359 
4360 
4361 
4362 
4363 
4364 
4365 
4366 
4367 


4370 
4371 
4372 
4373 
4374 
4375 
4376 
4377 
4378 
4379 
4380 
4381 
4382 
4383 
4384 
4385 
4386 
4387 
4368 
4389 
4390 
4391 
4392 
4393 
4394 
4395 
4396 
4397 
4398 
4399 
4400 
4401 
4402 
4403 
4404 
4405 
4406 
4407 
4408 
4409 
4410 
4411 
4412 
4413 
4414 
4415 
4416 
4417 
4418 
4419 


260  CaseT 

261  |-k 

262  GoTo  1-mel      Jumps  back  Is  For  i 
( LfBound(*&WartangEqn)  bop 

263  Eat  For     t>b  *he  For  k  -  (,  •  1) 
(UBounoXslrWartongEoTi))  loop 

End  Select 


26S 
266 


'til. 
End  II 


269  End  Funcbcn 
270 

271  Pubac  Sub  FitnessO 

272  Dim  jtrSa.  As  String.  sWCtasNurrfcer  As  Stnng.  s*  AMOS  As  String 

273  Drm  strlnputl  As  Stnng   OlnpuC  As  Sking 

274  Own  i  As  Integer,  i  As  Integer,  k  As  Integer.  I  As  Integer 

275  Dim  mNarmaF- actor  As  Imager.  tntFil  As  Integer.  inOnpul  As 

276  Drm  mLevell  As  Integer.  mtLevoG  As  Integer,  inLetoO  As  Integer 

277  Don  mLeveM  As  Integer.  inlLoWb"  As  Integer.  inLeteaS  As  Integer 

278  Don  sngOesiredWergnl  As  Sngto,  sngEpsibn  As  Sngle,  sngSumORt  As 

279  Dim  sngCount  As  S*ngte.  sngA^Ftl  As  Smgte.  sngFitness  As  Single 

280  Don  sngMandFirVakje  As  Smgb 

281  Oim  tagGradDato  As  Long 

282  Dim  dbl  As  Database 

263  Dim  recOass  As  Recordset.  recManne  As  Recordset.  recMarOsFit  As 

284  Don  recPEF  As  Recordset.  recFDesved  As  Ftecordset.  recLDesired  As 

285  Dim  recFMand  As  PecordseL  recLMand  As  Recordset 

286  Dim  booMandProp  As  Boolean.  booPEF  As  Boolean.  booMandatory  As 

287  DtrnvarFtetValAsVananl 

288  Dim  frmCurrent  As  FormJm<]a330uoCaPenBJYAndFit 


293  ■  Create  TEMP_FTT  tebte 

294  Apphcaaon  SetOpoon  'Confirm  Action  Custms*.  Fabe 
295 

296  togGradDale  -  frrTCurrweMCTGradDate 

297 

298 

299  '  Create  2  TEMP.F1T  tables  from  MAFLCLS_F1T  taste 

300  dbl  Execute  'SELECT  SSN_FK.  Manneindex.  Ctosslndex_FK.  Fitness  WTO 
TEMP.FTT  FFCM  MAFl_CLS_FTT.' 

301  dbl  E-ecuto  'SELECT  SSK.FK  Mannefnden  Ctosslndex_FK.  Pitness  INTO 
TEfcP.FTTl  FROM  MAR_CLS_FrT.* 

302 

303  ■  Insert  into  the  TEMP.F1T  tabtes  the  appfceabto  SSNi  based  on  MCT 
graduation  date 

304  dbl  Ewcuto  'INBEHT  INTO  TEMP.FlT  (  SSN.FK  JSELECT  MAPJNE  SSN.PK  FFCM 
grySSN  WhCRE  GtedDate  -  "  &  IngOradDate  &  " 

305  dbl  Fjocute  "INSEFfJ  INTOTEMP_nTl  (  SSN,FK  )SEL£CT  MAF*NE.SSN_PK 
FTCM  o/vSSNWrCRE  G«dD»le  -  *  &  tegGradOato  &  " 

306 

»r  Apr>ca&on  SelCpaon  'Confrrm  Acton  Cuanes",  True 

306 

309  '  Create  a  dynaset  of  he  temp  fit  table 

310  stfSQL  -  "SELECT  *  FROM  TEMP.FTT* 

31 1  Set  rocMarCbFil  -  dbl  CpenFtocordse*s»SQL  dbCpenDynasefJ 

312  recMarfr^sfiLMcveLast 
313 

314  '  Create  the  Mamelridex  lor  (he  Temp_fif  table 

315  lfrecMarCb^iLFtocordCcwl>0Then 

316  recMwl^FiLMsverinit 

317  For  i  -  1  TorechlaK^sFrLFtacordCount 

318  recMarCbPiLEdii 

319  recMarCbFit<Manr»lritox  -  i 

320  recMarOsFiL  Update 

321  recMarCbFitMowrleM 

322  NlUdi 

323  End  II 
324 

325  '  Create  a  dynaset  °'  >he  Class  table 

326  strSQL  -  "SELECT  SCour3e^tumber_FK  AMOS^FK  FFCM  CLASS* 

327  Set  recCaus  -  obi  CbenFtecordae^stSCL  dbCpenOyrttsoQ 

328  II  rec  Class  EOF  -  Fabe  Then 

329  recOassMcheLast 
rec  Class  *AJveFirst 


331 
332 


End  If 


333  '  Create  a  dynaset  ol  the  IMm  table  based  on  TEW  FTTl  table 

334  strSCL  -  -SE1ECT  *  FPCM  MAftNE  .  TEMP  RT1  WHERE 
({(MARBfcSS^FIQ-rTBJP.FTTl  I  ISSN_FKD)  ;* 

335  Set  recManne  -  dbl  CpenPbcorobetfsrSCL  dbOpsnDynaseQ 
336 

337  It  recMarne  EOF  .  Fabe  Then 

338  recManne  MoveLast 

339  recMame  MoveFirst 

340  End  II 
341 

342  '  Intake  wnabtee 

343  booMandProp  -  True 

344  mffilaO 

345  booPEF  .  Fabe 

346  booMandatory.  Fabe 

347  inMormaFactor  -  100 

348  inLete-l  -  32 

349  inLewr2  .  16 

350  .  nL  osrC  ■  8 

351  mLeteM  .  4 

352  inLrftet  .  2 

353  inl.ewl6  .  1 

354  sngDesffedWe^hl  ■ 

355  sngManoTntVakje  -  (1  -  sngOestredWeigh*}  *  inlNorrrmlF actor 

356  tvPetVal  -  SyxOr^acSy-OnllriMeter.  'Status.. '. 

357  sngEpauon  .  0  000001 
358 

359  '  Venty  recOass  has  wlues 

360  It  recCbas  FtacordCount  >  0  Then 

361  stCbssnUrber  .  'X* 

362  sfAMOS-T 
363 

364  '  Cycb  through  al  the  classes 

365  For  i  -  I  To  recCom.  PecordCount 

366  YaUcontrjItorrporanV  to  Windows 

367  DoEnenb 

368  '  Update  Status  bar 

369  vuFtefVa)  -  SysOnlfacSysCrrdLlpdAlBMetor.  i) 
370 

371  '  Update  the  cktssrndex_FK  io,  tw  MarCbFii  record 

372  lln-cManCbFiLHrscCTdCount>0Then 

373  rerJ*rCbFiLMoveFa-st 

374  For  j  -  1  To  recMarCbFiL  FbcordCdunl 

375  recMarCbFitEdi 

376  recfiWCbFieCLassindrsLFK  .  ■ 

377  recMa/CbFiiLbaa» 

378  recMwCbFiLMcser^lmd 

379  Nnd| 


83 


4420 
4421 
4422 
4423 
4424 
4425 
4426 
4427 
442S 
4429 
4430 
4431 
4432 
4433 
4434 
443S 
4436 
4437 
4438 
4439 


444S 
4450 
4451 
4452 
4453 
4454 
44SS 
4456 
4457 
4458 
4459 
4460 
4461 
4462 
4463 
4464 
4465 
4466 
4467 
4466 
4469 
4470 
4471 
4472 
4473 
4474 
4475 
4476 
4477 

4478 

4479 


■uas 

443C 
4457 


380  rftcMarOsF.iMowF.r* 

381  End  II 

382  '  Check  to  see  if  netf  record  is  m*  same  school  as  fal  M 

383  '  If  it  iv  append  it  to  the  MAP.  CLS_Fi  T  table 

364  If  (racCtaslSCourssMjntMr.FK  -  stjClassNumber)  And 

(racCc\s3lAM0S_FK  -  ■&AMOS)  Than 

385  AppicanortSeCpfton  *Confirm  Action  Manas',  False 

386  dbl.FjBKuto  'INSERT INTO MAR_CLS_RT  (  SSN_FK. 
Mannelndex.  OasslndeieFK,  Fibvw )  SELECT  TEMP  JTT  SShLFK. 
TEMRJ=IT.  Mannelndex  TEMP.RT.  Class)  ndex_FK.  TEMP.RT .BtWM  FROM 
TEMP.FIT  WhEFE  TEMP_FIT.F*ia»  >  0,' 

387  AppacafioriSeCpbon  'Confirm  Acbon  (Manas'.  Trua 

388  i  ©c  Class.  MoveNea 

389  Eba 

390  sngSunORl  -  0 

391  sngCount  •  0 

392  booPEF  -  Falsa 

393  'Verify  racManna  has  values 

394  If  recfc4ftnna.R»cordCounl>0Th«n 


395 


400 


*  I  nitaize  vanaUas 

strlnputi  -  *-  &  recClaas!SCourseNumber_FK4  *" 
atnnpuG  m  ~  4  racOani  AMOS.FK  &  ™ 
inOnput  -  0 


'  Find  al  PEFs  associated  with  the  currant  school 

402  strSQL  -  "SELECT  PEF_FK  FFOM  SCH_PEF  WHEFE 
SCouraaMjmbar_FK  -  '  4  strlnputi  4  '  and  AM0S_FK  -  '  &  strinpuC  8  " 

403  S«tracPEF«dbl.CtMnn«cord*at(  strSQL 

404  If  recPEF.EOF  .  False  Than 

405  recPEF.MoveLast 

408  <ecPEF  MoveFirst 
407                          End  If 

408 

409  '  Find  mandatory  fundamental  prooertes  aasocialad 
vMti  the  currant  school 

410  strSQL  -  'SELECT  FProperVName.FK  FFOM  FUND_SCH_PFCP 
WHEFE  SCouraaNumbar.FK  -  '  4  stflnputi  &  *  AM)  AMOS.FK  .  '  &  strinpuC  & 

AND  Uval  •  &  inQnpuf  &  " 

411  Sat  racFMand  ■  dbl  CpanFacorrisa<(sfrSQL 

412  If  recFMandECF  -  Falsa  Than 

413  recFMandMoveLast 

414  racFMand.  MovaRrsI 

415  End  It 
416 

417  '  Find  mandatory  brscal  properbes  associated  with 
the  currant  school 

418  strSQL  -  'SELECT  LPropanVNBme.FK  FFOM  LOG_SCH_PFCP 
WHEPE  SCourser*irnber_FK  .  "  4  strinputl  &  *  AND  AMOS_FK  .  ■  ft  stjInpuB  4 

AfsC  Laval  -  &  inflnput  &  " 

419  S*tracLJ4art-cfclCpanFtocc«dse«s8SCL 

420  If  racLMandEOF  -  Falsa  Than 

421  recUfandMoveLast 

422  rec  LAtand.  MovaRrsI 

423  End  If 
424 

425  '  Find  daairad  findamantaJ  properties  associated  win 
thecurren  school 

426  strSQL  -  'SELECT  FPropertyNBme.FK.  [Level)  FFOM 
FUND_SCH_PFCP  WHEFE  SCoursaNunbar_FK  -  '  4  strlnputi  4  '  AND  AMOS.FK  - 
A  strlnput2  4  *  AND  Laval  <>  '  &  inOnput  4  " 

427  Sot  racFDearad  -  dbl  apenFtocordse< strSQL 

428  If  recFDesiredEOF  ■  Falsa  Than 

429  recFDearred-MovBLasl 
rac  F  Oaarad.  MovaFi  rst 


431 
432 


End  II 


I  '  Find  daairad  bgcaf  properbes  aasocialad  with  tfv» 

4488  curran  achool 

4489  434  strSQL  -  'SELECT  LPrapanyNBma.FK.  [Laval]  FROM 

4490  L0G_SCH_PR0P  WHERE  SCour»al*mber_FK  -  '  4  strlnputi  4  '  AND  AMOS_FK  •  '  4 

4491  trlnpuG  4  *  AMD  Laval  o  '  4  inSnpui  4  " 


4492 

435 

Set  reclDeared  .  dbt  CpenReeordsetJ strSQL 

4493 

436 

If  recLDeatred-EOF  •  False  Than 

4494 

437 

recLD**r*d.Mov*Los 

4495 

436 

racLDeairedMovBFirsa 

4496 

439 

End  ft 

4497 

440 

4498 

441 

'  Cycle  tvougn  al  the  manne* 

4499 

442 

For  |-  1  ToracManneFecordCount 

4500 

443 

Yaild  control  ternporanV  to  Window* 

4501 

444 

DoEvents 

4502 

445 

'  Check  to  see  it  manna's  PF  F  n  an  open 

4503 

446 

It  recManne'PEF  <>  '00'  Than 

4504 

447 

booPEF  .  False 

4506 

446 

If  recPEF.EOF -Fabe  Then 

4506 

449 

'  Check  to  see  if  mannas  PEF  is 

4507 

associated  with  the  school 

4508 

450 

Fork-  1  To  reePEF  FtocordCount 

4509 

451 

If  recPERPEF_FX  .  recManne'PEF  Then 

4510 

452 

booPEF  >  True 

4S11 

453 

End  If 

4512 

454 

racPEF  MoveNe* 

4513 

455 

IWk 

4514 

456 

recPEFMoveFiW 

451S 

457 

End  If 

4516 

458 

Ebe 

4517 

459 

booPEF -True 

4518 

460 

End  If 

4519 

461 

'  Compare  manne  attributes  with  the  mandatory 

4520 

properbes 

4521 

462 

If  booPEF  -  True  Then 

4522 

463 

'  Check  for  mandatory  fundamental  properbes 

4S23 

464 

If  nkcFMancLEOF  -  Fates  Than 

4524 

465 

Fork-  1  TorecFMandFteaxcCount 

4525 

466 

'  Al  tests  must  prove  true  for  Ova 

4526 

mandatory  properbes 

4527 

467 

If  booMandProp  -  True  Then 

4528 

468 

If 

4S29 

FuridPropTeHrecFMarKfFPropeftyNarna.FK.  rec  Manne!  SSN.PK)  -  False  Than 

4530 

469 

booMandProp  -  Falaa 

4531 

470 

End  II 

4532 

471 

rec  F  Mand  MoveNgrt 

4533 

472 

End  If 

4534 

473 

Ntodk 

4S35 

474 

recFMand.  MoveFirst 

4536 

475 

End  If 

4537 

476 

'  Check  for  mandatory  bgcel  properbes 

4538 

477 

tf  booMandProp  -  True  Then 

453B 

478 

If  recLMandEOF  -  Falaa  Then 

4540 

479 

Fork-  1  TorecLMand  FtocordOxint 

4541 

480 

1  Al  lasts  must  prove  true  for 

4542 

(he  mandatory  progenies 

4543 

481 

If  booMandProp  -  True  Then 

4544 

462 

If 

454S 

LogPropTeab> 

KU4and1LPropertyNama_FK.  recMannetSSN_PK)  .  False  Then 

4546 

463 

booMandProp-  False 

4547 

484 

End  If 

4548 

485 

recLMand  MoveNeti 

4549 

466 

End  II 

4550 

487 

MMk 

4551 

468 

recLMendMoveRrst 

4SS2 

489 

End  If 

4553 

490 

II  booMandProp  •  True  Then 

4554 

491 

intRt  -  1 

4555 

492 

End  If 

4SS6 

493 

End  If 

4557 

494 

'  Reset  booMandProp  for  netf  Check 

4558 

495 

booMandFVop  -  True 

45S9 

496 

'  Compare  manne  attributes  with  the  desired 

4560 

properbes 

4561 

497 

If  intF.t  >  0  Then 

4562 

498 

'  Compare  Nth  desired  fundamental 

4563 

499 

If  recFDesredEOF  -  False  Then 

4564 

500 

Fori-  1  Tore^FDearetlFWcordCourit 

4565 

501 

II 

4566 

FunctFYc«Test(recFC«sirecf|FProperVN»rne_FK,  rec  Manne!  SSN_PK)  •  True  Then 

4567 

502 

Select  Case  rec F Desired! Level 

4568 

503 

QWI 

4569 

504 

intFit  -  intFit  * 

4570 

SOS 

CM*  2 

4571 

506 

intRt  -  i ntF.i  » 

4572 

507 

Cm*  a 

4573 

508 

intfit  -  infit  * 

4574 

509 

Case  4 

4575 

510 

intRl  -  intFit  * 

4576 

511 

Cases 

4577 

512 

intRt  -  infit  * 

4578 

513 

Cwa 

4579 

514 

intFit  -  rntfit  * 

4560 

515 

End  Select 

4581 

516 

End  If 

4562 

S17 

recFDesired  Mow  Ned 

4563 

518 

Naxll 

4564 

519 

rec  FDesredMoveRrsI 

4585 

520 

End  If 

4586 

521 

1  Compare  wfft  desired  tocical  properbes 

4587 

522 

It  recLDesiredEOF  -  False  Then 

4588 

523 

For  1-  1  To  reoLOesiredRecordCounl 

4589 

524 

If 

4590 

FundPropTeaflj 

ecLDe*red<FFYcp*rtyrevne_FK.  racManna'  SSN_FK)  *  True  Than 

4591 

52S 

Select  Case  recLOesi  red!  Level 

4592 

526 

Coal 

4593 

527 

intFit  -  intFit  * 

4594 

528 

Case  2 

4595 

529 

intRt  -  intFit  * 

4S96 

530 

Case  3 

4597 

531 

intFit  -  intFit  ♦ 

4598 

532 

Cava  4 

4599 

533 

intFit  -  intFit  * 

4600 

534 

CaseS 

4601 

535 

mtFil  -  mf  it  * 

4602 

536 

Case  6 

4603 

S37 

intfi it  m  intRt  * 

4604 

538 

End  Select 

4605 

539 

End  If 

4605 

540 

recLDesired.  MoveNetf 

4607 

541 

reuti 

4608 

542 

rec  LDeared.  MoveR  rst 

4609 

543 

End  If 

4610 

544 

End  If '  HiVFit>OT>van 

4611 

545 

End  If '  If  booPEF  -  True  Then 

4612 

546 

lanUajrumpll 

4613 

547 

'  It  tt*  manna's  PEF  is  not  satisfied  by  the 

4614 

school  or  tv»  rr 

anne  does  not  meet 

4615 

548 

'  al  the  mandatory  properbes  for  the  school,  a 

4616 

score  of  zero  a 

i  assigned. 

4617 

549 

'  OBvanMse.  a  value  >-  1  is  assigned.  A  score  of 

4618 

1  indicates  tte  school  had  no 

4619 

550 

'  desired  properbes  or  the  manne  did  not 

4620 

salsfy  any  of  fhe  desired  properties 

4621 

551 

'  Lator,  1  is  subtracted  from  these  scores  and 

4622 

replaced  wthe 

smal  value  eased 

4623 

552 

'  epsibn  The  epston  is  used  to  prevent  a 

4624 

dm  eon  by  zero  problem 

4625 

553 

rec  MarCtsF if  Fitness  -  .nrf ,! 

4626 

554 

recMarOaRLUpdasi 

4627 

555 

recMarCbF.tMcveNKC 

4628 

556 

'  Prevents  counbng  the  emnes  Mrih  zeros  »nce 

4629 

Bvey  are  removed  later 

4630 

557 

'  Sums  up  al  the  fits  and  gets  a  count  of  how 

4631 

many  fttttiere 

are 

4632 

556 

II  intFit  >  0  Then 

4633 

559 

'  The  1  is  eubb-acbsd  from  bvj  mtFrt  score 

4634 

and  replaced  mt\  a  smal  epsiton 

4635 

560 

■ngSumCWRl  -  snoSumOfFit  .  CSnpXmtFit  -  1) 

4636 

•NAME? 

4637 

561 

sngCount  -  sngCount  +  1 

4638 

562 

End  If 

4639 

563 

intFit  -  0 

4640 

564 

rec  Manne  MoveNarf 

4641 

565 

NUtj 

4642 

566 

'  Prevent  rJvKing  by  zero 

4643 

567 

If  sngCount  >  0  Then 

4644 

568 

sngAvgFit  -  sngSurrOFit  /  sngCount 

4645 

569 

recfvJarClsFit  MoveFirst 

4646 

570 

'  update  r*  TEMP_F1T  tatet  with  fhe  normalzad 

4647 

fitness  vetoes 

4648 

571 

For  k  -  1  To  rec  MarOsFit  FtocordCount 

4649 

572 

If  rac  MarOaFitJ  Fitness  >  0  Than 

4650 

573 

recMarCbRlEcft 

4651 

574 

'  The  I  is  subtracbsd  from  9m  stored 

4652 

fitness  acore  and  replaced  with  a  smal  epaiton 

4653 

575 

sngRtoaaa  •  CSngXrecMuOsRtfRbvus  - 

4654 

1)  •  sngEpaUn 

4655  576  recMarOsRf  Fitoess  - 

4656  ClritlsngMendRrvatoe  •  angRtoees  *  mflvbrmaJFactor  *  sngDeairedW eight  / 

4657  577  rec  MarOsRt  Update 

4658  578  End  If 

4659  579  recMaiOsRlMDveNext 

4660  S80  Nptfk 

4661  581  '  Insert  «v>  TEMP.RT  records  into  the 

4662  582  Appicabon  SaOpeon  'Confirm  Acbon  Queries'. 

4663  583  dbl.Eaecute  'INSERT  INTO  MAFLCLS_RT(  SSN_FK. 

4664  Monnelndax.  CtasalndejeFK.  Fibvses)  SEL£CTTEMP_RT.SSN_FK. 

4665  TEMP_FIT.Mannelndax.  TEMP_FTT.Classlnda«_FK,  TEMPjYlJUleal  FROM 

4666  TEMP_FIT  WHEFE  TEMP.FIT  Rtoaas  >  0:* 

4667  584  Appicafwn.SetCpbon  'Confirm  Acbon  Queries', 

4668  565  sg-Classhtjrnber  •  recCkos'  SC«jrs*hljmbar_FK 

4669  586  sffAMOS-  recClass'AMCS.FX 

4670  587  End  If 

4671  588  rec  Manne  MovaRrsI 

4672  589  ft  recCtess.  EOF  -  False  Then 

4673  590  rec  Cans.  Movaread 

4674  591  End  II 

4675  502  End  If    If  racManna  FeKOfdCounl  >  0  Then 

4676  593  End  If '  If  (rexCeue.SC««aNumb*r_FK  -  sSCtossNumber)  And 

4677  <  rec  Class  AMOS  ^FK  .  sft-AMOS)  Then 

4678  594  Nasi  i 

4679  595      End  If ' 


84 


S97       recMarCteFUCkxse 
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4700 
4701 
4702 
4703 
4704 
4705 
4706 
4707 
4706 
4709 
4710 
4711 
4712 
4713 
4714 
4715 
4716 
4717 
4716 
4710 
4720 
4721 
4722 
4723 
4724 
4725 
4726 
4727 
4728 
4729 
4730 
4731 
4732 
4733 
4734 
473S 
4736 
4737 
4736 
4739 
4740 
4741 
4742 
4743 
4744 
474S 
4746 
4747 
4746 
4749 
4750 
4751 
4752 
47S3 
4754 
4755 
4756 
4757 
4758 
4759 
4760 
4761 
4762 
4763 
4764 
4765 
4766 
4767 
4766 
4769 
4770 
4771 
4772 
4773 
4774 
4775 
4776 
4777 
4778 
4779 
4780 
4781 
4782 
4783 
4784 
4785 
4786 
4787 
4788 
4789 
4790 
4791 
4792 
4783 
4794 
4795 
4796 
4797 
4798 
4799 
4800 
4801 
4802 
4803 
4604 
4805 
4806 
4807 
4606 


1  Prepare  ho  AMPL  rami  oat  data  fib 

600  ApptcaBorvSetOptton  "Ccrflrm  Action  Quartos',  Fabe 

601  dbl  Execute "DELETE *  FROM TEMP_FIT,* 

602  '  Specify  He  rurrber  of  marines 

603  db1  Execute  'INSERT  INTO  TEMP.FIT  (SSN_FK.  Munneinde*)  VALUES 
( param  totafvbrines  ■', "  &  recMartne  RecordCounI  &  ").' 

604  dbl  Execute  *IISEERT  INTO  TEMP_FTT(SSN_FK)  VALUES  f.y 

605  ■  Specify  tho  rurber  of  school  classes 

606  dbl  Execute  'INSERT  INTO  TEMP_FIT  (SSN_FK,  Martnelndex)  VALUES 
('param  totaJCIasses  ■ ',  *  &  recClass. RecordCounI  &  "):" 

607  dbl  Execute  'INSERT  INTO  TEMP.FIT  (SSN_FK)  VALUES  f.*.' 

608  '  Specify  the  class  demand 

609  dbl  Fjecute  INSERT  INTO  TEWP_FTT  (SSN_FK)  VALUES  Cparam  demand 

610  dbl  Execute  -INSERT  INTO  TEMPJTT  <  Classlndon_FK.  Fitness)  SELECT 
CLASS.Cbsslndex.  CLASS  Quota  FROM  CLASS." 

61 1  dbl  Execute  -INSERT  INTO  TEMP.FIT  (SSN_FK)  VALUES  C;*);* 

612  '  Specify  the  class  penalty 

613  dbl  Execute  -INSERT  INTO  TEMP_F1T  (SSN_FK)  VALUES  ("pa/am  penalty 

614  dbl  Execute  'INSERT  INTO  TEMP_FIT  (  Class!  ndex^FK,  Fitness  )  SELECT 
PENALTY .CIasslndax_FK.  PENALTY  Penary  FROM  PENALTY," 

615  dbl  Ejecufe  "INSERT  INTO  TEMP_F1T(SSN„FK)  VALUES  (W 

616  DoCmd  Transfer  Toxl  acExportRxed,  "Rdmi.Dab  Expert  Specilicatian'. 
TEMP_FIT,  •C.\RDMn\AmpDataVdmi  daT 

617 

61 8     '  Prepare  J»i  AMPL  rdm2.dat  data  Tito 

618      dbl  Execute  "DELETE  *  FROM  TEMP.FiT.* 

620  dbl  Execute  "INSERT  INTO  TEMP_FfT  SELECT  '  FROM  MAR_CLS_F1T:* 

621  dbl  Execute  'ALTER  TABLE  TEMP.F1T  DROP  COLUMN  SSN_FK;" 

622  dbl  Execute  "ALTER  TABLE  TEMP_FTT  ADD  COLUMN  SSN_FK  tert" 

623  dbl  E»cu1e 'INSERT  INTO  TEMP_ FIT  (SSN_FK)  VALUES  (pa/am  fitness 
defautO-*;" 

624  dbl  Execute  "SaECT  *  INTO  AMPL_TEMP  FROM  TEMP.FTT  ORDER  BY  SSN.FK 

625  dbl  Execute  "INSERT  INTO  AMPL_TEMP  (SSN.FK)  VALUES  CV 

626  DoCmlTransferTeJdacFjportFuod,  "Rdm2_Dato  Expert  Specification-. 
AMPL.TEMP.  •CARDMn\AmplData\rdm2  daf 

627  ApptcBDon-SetOptton  "Confirm  Action  Queries',  True 
628 

629  recMaflne  Ooae 

630  recCbss-Ckno 

631  '  Remove  tie  created  tabfes 

632  dbl  Execute  'DROP  TABLE  TEMP_FTT;" 

633  dbl  Ejtecute  -0ROP  TABLE  AMP1__TEMP;" 

634  A1  E»cute 'Drop  Table TEMP.FlTi," 

635  dbl  Cbse 

636  '  Reman  he  meter  from  the  stabs  bar 

637  varRefVaJ  -  StysC^acSysCrndflemowMeter) 


2  Pubic  Sub  Quota,  PerwrtyfvarUDateBound  As  Variant) 

3  Dim  ver  Dale 

4  Dim  rec  As  Recordset,  reel  As  Recordset 

5  Dm  stSQL  As  Sting.  strConverl  As  String 

6  Dim  i  As  Intoger 

7  Dim  dbl  As  Database 


4810 
4811 
4812 
4813 
4814 
4815 
4816 
4817 
4818 
4818 
4820 
4821 
4822 
4823 
4824 


4831 
4832 
4833 
4834 
4835 
4836 
4837 
4838 


4842 
4843 
4844 
4845 
4846 
4847 
4848 
4849 
4850 
4851 
4652 
4853 
4854 
4855 


'  Delete  he  otd  penalty  and  class  files 
DoCmd.  RurtSQL  "OELETE  '  FROM  PENALTY* 
DoCmd  RunSQL  "DELETE  -  FROM  CLASS* 

'  Query  generates  new  class  quota 
DcCrrrJ.SefWamngs  (Fabe) 
DoCmd  OpenQuery  "qryNewGuota' 
DoCmd.SoNVammgs  (True) 


665      Applcatian  SetOpOcn  "Confirm  AcOon  Queries'.  True 


666 

G67 


e  FY  tor  RD3  fi 


'  Create  indei  for  the  class  table  an 
368      Set  dbl  -  CurrontDbO 

569     strSOJ_-"SRECTCLASSASCHCOLPenalyFactxFTOrtSC^^ 
CLASS  ON  (SCHCOL.AMOS_PK  -  CLASS  AMOS.FK)  AND  (SCTCOLSCcurseNurrber  PK  . 
CLASS.  SCourseNur*ar_FK).* 

Set  rec  -  dbl  OpenRecordsettstSOL.  obOpenOy  nasal) 

recMmeLasl 


670 


672 
673 


I  rec  RecordCount  >  0  Then 

674  rec  MoveFirat  . 

675  For  I  -  1  To  rec  RecordCounI 

676  rec  Edit 

677  reclCtesslndex  -  i 

678  '  Cenverts  he  fiscal  year  ti  a  two  digit  rurrber  lor  RD3  file 

679  stConvert  -  CSt(reclRscarYear_PK) 

680  stConvert  -  Rght(srConvBrt.  2) 

681  rec1FiscaiYea/_PK  -  Clrtf(stnCanvert) 

682  rec. Update 

683  rocMcMeNaxt 

684  Ned  I 

685  End  It 
686 

687  '  Create  penalty  file 

688  "  First  update  he  index  from  the  CLASS  table 

689  ApplcabcrLSetOpDon  "Confirm  Actkn  Queries'.  False 

690  DcCmd.OpenQuery  'qry  Penalty  Index" 

691  ApptcattoTLSetOpOon  "Confirm  Acbon  Quenes".  True 

692  '  Create  a  record  set  of  the  PENALTY  table 

693  strSQL  -  "SELECT  -  FROM  PENALTY* 

6S4  Set  red  .  dbi  OponFteco«tee«5*SQL.  cbOpenDynase*. 

695  It  lsNul(varUDa«e6ouncf)  -  False  Then 

696  '  Formal  thrs  date  lor  use  in  tie  DatoDirf  furcton 

697  vB/UDateBound  -  Forrm«varUt>ateBound.  '•#••  l§V§T ] 
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699  If  rec  RecordCount  >  0  Then 

700  rec  MOW!  Mr  si 

701  For  i  -  1  To  rec  RecordCount 

702  reel  Edit 

703  '  Gel  report  dab  from  class  record 

704  varDate  -  rec 'Paper©  ale 

705  '  Format  t»  report  date  lor  use  in  tie  DateOitt  lunctan 

706  varDate  -  Formal! varDate,  'ilM/M/a  I*) 

707  '  Make  tie  penalty  the  d  Iterance  between  tie  two  values 
706  '  Thrs  makes  no  penaty  Inear.  based  on  date 

709  rec  f  Penalty  -  OateDirffd".  varDate,  varUDateBcund)  ' 
rec'PonaltyFactor\24 

710  reel. Update 

711  recMoveNBxt 

712  reel  MoveNexl 

713  NeXti 

714  End  If 


722  Dim  dbl  As  Database 
723 

724  Set  dbl  -  CurrenTDt>0 

725  '  Deieto  he  table  if  if  already  exists 

726  dblTabteDefsDeWe  "PERCENTAGE* 

727  OeleteTab(e_Exlt 
729  Exit  Sub 

729 
730DetoteTabte_Err 

731  Setect  Case  EntUnber 

732  '  This  number  occurs  it  he  PERCENTAGE  table  does  n 

733  Case  3265 

734  Resume  Delete!  abV»_Exji 

735  CaseEbe 

736  MsgBca  En  Descriplon 

737  Resume  DeleteTaMe_Ex|| 

738  Resume 

739  EndSetoci 
740 

741  End  Sub 

Module  rnocDmportExporlData 
Code 

1  Attibuto  V8_Name  ■  "rrxxflrnporlExportData' 

2  Option  Compare  Database 

3  Option  E-ptdt 

5      Pubtc  Sub  inportBNAO 


9     EndSub 

10 

11    Pubfcc  SublrrpcrtROiO 


15  EndSub 

16 

17    Pubic  Sub  trrporfToTargeLMOS()  (AcBonQuery  As  Sting) 

18 

19        CurrentDbO  Ejacute  "INSERT  INTO  TAftG£T_MOS  (  CourseNurrber   PK 

Targe*OS_PK.  MCC  )  SELECT  DISTINCT  BWwEXTWCT.CourserslurnDer_PK. 

BNA_EXTRACT TargefMOS_PK.  BNA^EXTRACTMCC  FROM SNA^EXmACT 


4872 
4873 
4674 
4875 
4876 
4877 
4878 
4878 
4680 
4881 
4882 
4883 
4884 
4885 
4886 
4887 


4900 

4901 
4902 
4903 


4912 
4913 
4914 
491 S 
4916 
4917 
4918 


4923 
4924 
4925 


4929 
4900 
4931 
4932 
4933 
4934 
493S 
4936 
4937 
4938 


23  Pubac  Sob  ArrptRosuflO 


32  Set  dbl  -  CurrentDbO 
33 

34  '  Prepare  he  AMPL  rdmdal  data  Tib 

35  AppicatJon-SetOptton  -Confirm  Action  Queries*,  False 

36  dbl  Execufo  *CREATE  TABLE  CONSTANTS  (ConstantName  TEXT,  mtvalue 

37  '  Specify  the  tit  constant 

38  rjbl  Execute  INSERT  INTO  CONSTANTS  (CcnstenNamo,  InlValue)  VALUES 
rparam  fiConstart  •'.  *  &  Fc*7T^trrrf^epareAndExecute5olver!cmbFit  & 

39  dbl  .EwcutB  INSERT  INTO  CONSTANTS  (ConstenMame)  VALUES  f;*.' 

40  '  Specify  the  01  constant 

41  dbl. Execute  'INSERT  INTO  CONSTANTS  (ConstantName  intVaJue)  VALUES 
('param  niConstant  >'  "  &  F^nslrrmPrepareAndExscutBSoher'cmbFil  & 

42  dbl  Execute  HNSERT  INTO  CONSTANTS  (Constanf*imB)  VALUES  CI:" 

43  DcCmL  Transfer  Text  acExportTixed.  'Roh\_Data  Export  Specif  icaton*. 
CONSTANTS,  "C:\TcBeFttrtArnpCiabVdm  daT 

44  Appacabon  SetOptlon  "Contrrm  Action  Queries*.  True 
45 

46  '  Remove  he  created  tabte 

47  dbl. Execute  *DROP  TABLE  CONSTANTS.* 

48  dbi  Close 
48  EndSub 

SO 

51  Pubkc  Sub  ExportRDSO 

52 

53  DoCmd.  Transfer  Tea  acExporlFbod.  "ExpcrtRDaFlle",  "CfyRDSRte", 
C  \TcrffeRDM  FOrnDala\ftD3  bo 

54  AppicaDon.SetOption  'Confirm  Action  Queries"   f  also 

55  DcOnlOpenOuery  'o/yUpdateAssicrrnenfType* 

56  DoCmd  OpenQuery  'ajyApperelResutiToAssignmenr 

57  AppacaDonSetOptlon  'Confirm  AcOon  Quenes",  True 
58 


62  Pubec  Sub  ArcttveDabO 


67       ve/TodaysDato  -  Date 
68 

69  '  Format  tie  date 

70  wTodaysDab  -  Format!,  varTodaysDate.  "yyTymmdcT) 

71  '  Convert  the  dale  Into  a  number 
wTodayaDab  .  CLngtva/TodaysDab) 


72 

73 

74  '  Archive  the  appkabte  data 

75  DoCrndRunSQL  "INSERT  INTO  MARlNE_ASSIGrLAFCrtVE  SELECT  DISTItvCTROW 
MAR1NE.SSN_PK.  MAnNE-LNarm.  MARINE. I ni Date.  MARINE. Gender. 
MARtNE.DrrverLicense.  MAHNESOl.  MARINE Trainrv^Ccrrpany 

MARINE  MCRD_Code.  MARrE  FtNumber.  MARINE  Cllienshrp.  MARINE  GradDate. 

MAHhE.S^mOual.  MAFarCObtgaDon.  MAFONE-Ago.  MARINE. Educabon 

MARINE  HigtostMah.  MARINE.  MentalAbi  I  ty.  MARrf.CtoararceEst. 

MARINE.  Height,  MARINE  Vision,  MAR)  NE  Color  Pore  epBon.  MARNE  EthrvcGroup, 
MARINE.DLA8.  MARINE. EOPT.  MARINE. DistictCode.  MAFONETyprng,  MAHIvE.EL, 
MARJNE.MM  MARINE  CL.  MARINE  GT,  MARINE  Componert.  MARlr»E-PEF 

MARirt  OvtConvlction.  MARNE  RSN.  MARJI*  AFAOBD, 

ASSIGNMENT  C cv seNurrber   ASSIGNMENT  AMOS.  ASSIGNMENT. MCC. 

ASSlGNf^rffClassNumtxir    ASSIGNMENT  RepcrtDab.  ASSl GNMENT  FecaTfear 

ASSIGNMENT  Ass^menfType  FROM  MARNE  INNER  JOIN  ASSIGNMENT  ON 

MARNE.SSN_PK  -  ASSIGNMENT  SSN_FK  WHERE  ASSIGNMENT  ReportDate  <  "  4 

76 

77 


85 


493B  78        OcOnd  ft^^SGL  "DEUETE  DtSTlNCTOCW  MAFirt '  ASSIGr*ENT"  FROM  MWf£  4949  FfCMMAFONE  LEFT  JONaSSIGNYENTCNMAHNESSN  PK-  ASSIGNMENT  SSN  FK 

4940  H*fRJO(NASSIGMueJraNM*«l«SSN_PK-ASSIGMwENTSSN_FKWhERE  4950  W*RE  («ASSlGf*€NTSSN_FK)  Is  HUB] ■ 

4941  ASSIGNMENT  ReporlData  < '  &  v*rTod*ysD*toA "  4951  34  Case  7   if  noacfccked 

4942  **  49S2  85  'r*>»clont»kon 

4943  80         S*tec!Ca^M*g&rf'D«*oloij^?L^r«dMMin«fromff>fetlatabftv>^  4953  86        End  Select 

4944  *YesNo  *  *Gues*on.  'Delete  Uvssgned  Marines")  4954  87 

4945  81  C*3e6'lf  yosiscfccked  4955  88  End  Sub 
4948  82                  '  Deletes  entries  in  the  Marine  table  twlhoul  a  corresponding 

4947  entrv  m  fr»  Asaignmont  tabic 

4948  83  DoCmdFUiSQL  'DELETE  D1S71NCTOOW  MARUsE  '   ASSIGNMENT  SSN_FK 
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